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PREFACE 


This publication describes the internal logic of the Open, Close, and 
End-of-volume (O/C/EOV) components of the VS2 operating system. It is 
intended for people supporting these components who require detailed 
information about the functions performed, the data areas used, and the 
methods used to determine the nature and cause of problems encountered 
when executing the functions. 


This book is divided into the following sections: 


“Introduction.” The introduction describes the relationships between the 
O/C/EOV components and the rest of the system control program. The 
introduction also summarizes the functions performed by the O/C/EOV 
components. 


“Method of Operation.”’ Method of operation diagrams (also called HIPO 
diagrams) describe the functions performed. The diagrams summarize the 
functions and the extended descriptions that accompany each diagram provide 
additional details and refer to the object modules executed during the 
performance of the function. 


‘Program Organization.”” Module flowcharts show flow of control among the 
O/C/EOV object modules by indicating the entries to and exits from each 
object module of the O/C/EOV components. 


“Directory.” A list of the O/C/EOV object modules is presented in 
alphameric sequence, along with cross-references to the diagrams and charts 
on which each object module is described or referred to. An 
object-module-to-load-module cross-reference is also provided. 


‘“‘Data Areas.” This section presents lists of the fields of key system control 
blocks modified by each object module, as well as description of the contents 
of certain key fields. A schematic diagram showing the relationships among 
the work areas and control blocks used by the O/C/EOV components is also 
included in this section. 


‘Diagnostic Aids.” A cross-reference table of the abnormal termination 
(ABEND) system codes, the internal codes associated with each system code, 
the message associated with each system code, and informational messages is 
presented in this section. This section also presents lists of the O/C/EOV 
object modules executed under a number of typical conditions. How to use 
the problem determination and diagnostic routines is also described. 


‘‘Appendix A: Open and Close Processing of Spooled SYSIN/SYSOUT Data 
Sets.”’ An appendix is provided to describe the subsystem open and close 
access method executors. 
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Prerequisite Reading 


To effectively use this book, you should be familiar with the information 
contained in the reference manuals discussed in the following paragraphs. 


OS/VS Data Management Services Guide, GC26-3783, summarizes the 
O/C/EOV processes, relative to the macros used, in the section “Opening 
and Closing a Data Set.” To become familiar with the user’s exit routines 
exercised during O/C/EOV processing (the standard user label routines, the 
DCB and EOV exit routines, the DCB ABEND exit routine, and the 
block-count routine) see the section “Exits to Special Processing Routines.” 


You should be familiar with the options of the OPEN, CLOSE, and FEOV 
macro instructions as described in OS/VS Data Management Macro 
Instructions, GC26-3793, and with the EOV, RDJFCB, OPEN TYPE=J, and 
DEBCHK macros described in OS/VS2 System Programming Library: Data 
Management, GC26-3830. 


You should also be familiar with OS/VS Tape Labels, GC26-3795 which 
describes (1) the contents of standard (SL and AL) labels, (2) the purpose 
and logic of standard and nonstandard label processing routines, as well as the 
processing of nonlabeled (NL) tapes and those for which you specify that 
label processing be bypassed (BLP), and (3) the options available in tape 
processing. 


You should understand how the job control language options affect the 
processing provided by O/C/EOV (concatenating input data sets, overiding 
label processing, etc.), as described in OS/VS2 JCL, GC28-0692. 


If you are interested in debugging an O/C/EOV problem, you should be 
familiar with OS/VS2 System Programming Library: Debugging Handbook, 
Volume 1, GC28-0708, and Volume 2, GC28-0709 (both volumes can be 
ordered as GBOF-8211), and OS/VS2 System Programming Library: 
Service Aids, GC28-0674. The Debugging Handbook includes descriptions 
of the contents of system work areas and control blocks, such as the DCB, 
the DEB, and the DSAB. The O/C/EOV main work area and the where-to 
go table are included in OS/VS2 Data Areas, SYB8-0606 (available only on 
microfiche). The OS/VS Message Library: VS2 System Messages, 

| GC38-1002, and OS/VS Message Library: VS2 System Codes, GC38-1008, 
are needed to determine the cause of failures associated with specific 
messages and codes. 


If you want to determine the functions provided by the O/C/EOV-DADSM 
recovery routines, you should understand the system recovery concept, 
presented in OS/VS2 System Programming Library: Supervisor, 
GC28-0628. 


4 OS/VS2 Open/Close/EOV Logic 


C Related Reading 


Information on the components of the operating system that transfer control 
to and receive control from O/C/EOV appears in the following publications: 


e OS/VS2 BDAM Logic, SY26-3831 
n ¢ OS/VS BTAM Logic, SY27-7246 
e OS/VS2 DADSM Logic, SY26-3828 


© OS/VS2 System Logic Library, Volumes 1 through 7, SY28-0713 
through SY28-0719 (all seven volumes can be ordered as SBOF-8210) 


¢ OS/VS Graphics Access Method Logic, SY27-7240 

© OS/VS2 ISAM Logic, SY26-3833 

© OS/VS2 SAM Logic, SY26-3832 

© OS/VS TCAM Logic, SY30-2049 

© OS/VS2 Virtual Storage Access Method (VSAM) Logic, SY26-3825 
© OS/VS2 I/O Supervisor Logic, SY26-3823 

© OS/VS2 VTAM Logic, SY28-0621 

e OS/VS2 VIO Logic, SY26-3834 


Selectable Unit Prerequisites 


Q 7 e MVS Supervisor Performance #2, VS2.03.807, SN26-0823 TNL is 
prerequisite to SN26-0841 


e Data Management Selectable Unit VS2.03.808, SN26-0823 TNL is 
prerequisite to SN26-0843 


¢« 3800 Printing Subsystem, VS2.03.810, TNL SN26-0823 is prerequisite to 
SN26-0846. 


e JES3 MSS, 5752-818, TNL SN26-0823 is prerequisite to SY26-3865. 


e System Security Support, 5752-832, TNL SN26-0823 and Selectable Unit 
Newsletters SN26-0841 and SN26-0843 are prerequisites to SY26-3870. 
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SUMMARY OF AMENDMENTS 


Document Changes 


August, 1978 


: This revision incorporates the information formerly contained in technical 
newsletter (numbered SN26-0823), Selectable Unit Newsletters (numbered 
SN26-0841, SN26-0843, and SN26-0846), and Selectable Unit Supplements 
(numbered SY26-3865, SY26-3870, and SD26-6007). 


OS/VS2 MVS Data Management Support Selectable 
Unit (5752-860) 


New Programming Support 


A common pass/bypass function is provided in SCRATCH and RENAME. 
HSM will use this function while copying and restoring data sets to migration 
storage from public storage and vice versa. 


OS/VS2 MVS System Security Support Selectable Unit 
(5752-832) 


New Programming Support 


The Resource Access Control Facility (RACF) supports RACF-protected 
nondirect-access data sets. 


OS/VS2 MVS JES3 3850 MSS Selectable Unit 
(5752-818) 


New Programming Support 


The IBM 3850 Mass Storage System (MSS) is supported with this selectable 
unit (SU). 


OS/VS2 MVS Data Management Selectable Unit 
(VS2.03.808) 


New Programming Support 


Open/Close/Eov supports DASD data sets protected by the Resource Access 
Control Facility (RACF) by controlling access for input and output to these 
data sets. 
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3800 Printing Subsystem Selectable Unit (VS2.03.810) 


New Programming Support 


The IBM 3800 Printing Subsystem is supported with this selectable unit. 
Information on the 3800 is provided for planning purposes only, until the 
product is available. 


Supervisor Performance No. 2 Selectable Unit 


(VS2.03.807) 

New Programming Support 
Supervisor performance enhancements have been made to some of the 
Open/Close/EOV modules. 

Release 3.7 

Technical Changes 
Improvements have been made to the description of standard-label tape 
processing. 
Look-ahead mounting is bypassed for MSS volumes. 

Release 3 

New Programming Support 


The IBM 3850 Mass Storage System (MSS) is supported with this release. 
Information on MSS is provided for planning purposes only until the system is 
available. 


Other Technical Changes 


VTAM (Virtual Telecommunications Access Method) is now fully supported 
by the Open/Close/EOV modules. 


A new module, IFG0O558X, has been added to take a checkpoint if 
checkpoint at EOV has been specified. 
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Release 2 


Data Set Security Improvements 


In general, the O/C/EOV routines were modified for this release to ensure 
that these routines process according to their original design and at the same 
time ensure system integrity and data set security. 


Several data set security problems that existed in earlier VS systems have 
been eliminated in this release: 


e Label processing and the attendant data set protection could be 
inadvertently or maliciously bypassed in certain situations in earlier 
releases. Label processing can no longer be bypassed in these situations, 
unless bypass label processing is specified, which should be controlled by 
each installation’s reader procedure. 


e During Open processing in earlier releases, a complete direct-access 
volume might be searched when a format-1 DSCB is being sought. The 
search has been limited to the extent containing the VTOC for this release. 


e In earlier releases, Open, Close, and EOV routines made modifications to 
DCBs and ACBs in the user’s storage. For this release, the DCB is copied 
into storage with a system storage protection key, thereby averting 
malicious and inadvertent modifications to the DCB. This copy of the DCB 
is used only during O/C/EOV processing. Each time an exit is taken to an 
exit routine provided by the problem program, the copy is written over the 
DCB in user storage. At the conclusion of O/C/EOV processing, the copy 
of the DCB in protected storage is freed, before control is returned to the 
caller. The access method processing routines (READ, WRITE, GET, 
PUT, etc.) continue to use the DCB in user storage. 


e In earlier releases, problem programs using the EXCP access technique 
could gain unauthorized access to data sets using the EXCP appendages 
loaded by the Open routines. Open now verifies that every appendage 
loaded is authorized by the installation. 


e Earlier releases inadvertently allowed simultaneous opening and scratching 
of a data set by different tasks under certain circumstances. It is no longer 
possible to scratch an open data set. 


¢ In earlier releases, data sets could be read or written by user exit routines 
during volume switching in EOV and during volume disposition processing 
in Close and TCLOSE. It was possible to use the DEB associated with the 
data set for which volumes were being switched or repositioned. In this 
release, attempts by a user to initiate I/O using this DEB will result in 
abnormal termination of the user’s task (system code of 16E). 


Storage Protection Key Implementation 


The VS2 release 2 system control program uses storage protection keys to 
protect sensitive data from the user. The storage protection key designation is 
keys 0 through 7 for system use and keys 8 through 15 for programs 
executing in problem program state. 


The O/C/EOV routines execute using a PSW that has a storage protection 
key of 5, called data management key. O/C/EOV routines obtain virtual 
storage for work areas and some control blocks (for example, the DEB and 
the DEB extension) in key 5 storage. 
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System Recovery Routines 


Recovery routines have been added to the O/C/EOV components to ensure 
that the system control program does not fail when errors occur in the 
O/C/EOV and DADSM components. These routines are entered under all 
abnormal termination conditions encountered in the O0/C/EOV components. 
Their function is to release all storage obtained and free resources acquired 
during O/C/EOV processing and to attempt to restore the DCBs and ACBs 
to closed status. 


Resource Manager Routine (Task Close) 


A data management resource manager called Task Close has been added to 
the O/C/EOV components to close open data sets and to release all 
resources held in connection with these data sets. This resource manager is 
called by the termination manager during task and address space termination, 
normal and abnormal. 


Opening and Closing VIO Data Sets 


Changes have been made to the Open and Close routines to process virtual 
input/output (VIO) data sets. These changes involve using the equivalent of a 
format-1 DSCB that resides in the scheduler work area (SWA) in operations 
formerly using a format-1 DSCB residing in a volume table of contents. 


Dynamic Deallocation of Data Sets 


VTAM Data Sets 


Changes were made to the Close component to allow problem programs to 
release data sets and devices dynamically at the time the data set is closed, 
rather than releasing them normally at task termination. This requires the use 
of a new system control block, the DSAB, throughout O/C/EOV processing, 
and further requires that the data extent block (DEB) be extended. The DEB 
extension is acquired and initialized during Open processing. 


Data sets using the virtual telecommunications access method (VTAM) can 
be created and processed under VS2. O/C/EOV components recognize the 
VTAM data set organization and transfer control to the VTAM Open and 
Close routines. VTAM is not included in the initial release of OS/VS2. The 
VTAM information is provided here for planning purposes. 


Job Entry Subsystem Support 
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Open and Close executors have been added in this release to establish an 
interface with the job entry subsystems, JES2 and JES3. 


In OS MVT releases and in VS2 release 1, SYSIN and SYSOUT data sets 
were created by the reader-interpreter. When opened by the user, these data 
sets were accessed like any other sequential data set on a direct-access device. 
Open and Close invoked SAM executors and EOV extended SYSOUT data 
sets as if they were any other direct-access data set. 


In VS1 and in this release of VS2, the job entry subsystem uses the 
ACB-RPL interface, which requires opening and closing both the user’s DCB 
and an ACB for the spooled (SYSIN/SYSOUT) data set. The DCB is used as 
a compatibility interface between the job entry subsystem and the user’s 


J 


2 


program, and the ACB is used by the job entry subsystem in reading and 
writing the spooled data sets. 


In addition, in VS2 release 2, ACBs for SYSIN and SYSOUT data sets are 
opened and closed using subsystem executors to establish the interface the 
job entry subsystems uses to read and write the spooled data sets. These 
executors are documented in the appendix of this manual. 


& 


Performance Improvements: Packaging and Related Changes 


The O/C/EOV object modules have been packaged in large load modules. 
This was done so the XCTL macro instructions (SVC 7) used by the 
O/C/EOV routines could be replaced by branch instructions, thereby 
improving performance. The GETMAIN and FREEMAIN macro instructions 
(SVC 10) issued by the O/C/EOV routines were replaced by linkage for 
branch entry to the system routines that obtain and free virtual storage. Note 
that SVC 7 and 10 will no longer appear in the SVC trace table entries 
resulting from execution of the O/C/EOV routines. 


Note also that the informational messages (mount and demount messages, 
etc.) are now issued using only one multiple-line WTO macro instruction, 
instead of two single-line WTO macro instructions. 
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INTRODUCTION 
The Open, Close, and End-of-volume (O/C/EOV) routines are type 4 
supervisor call (SVC) routines that reside in SYS1.LPALIB. All members on 


SYS1.LPALIB are made resident in virtual storage in the pageable portion of 
the link pack area (PLPA) when the system is initialized. 


A problem or system program executes the Open, Close, and EOV routines 
by issuing a macro instruction (for example, OPEN, CLOSE, EOV, or 
FEOV) whose expansion includes an SVC instruction. Execution of the SVC 
instruction causes control to be passed to the SVC second-level interruption 
handler (SLIH), which passes control to the appropriate SVC routine. Figure 
1 illustrates the relationship between the programs that issue the O/C/EOV 
SVCs, the interruption handler of the supervisor, and the system services 
requested by the O/C/EOV routines. 


Problem Program or 

System Contro] Program 
Issues a Data Management 
Macro: OPEN, EOV, FEOV, 


CLOSE, RDJFCB, XLATE 


SVC interrupt 


First-and Second-Level SVC 
Interruption Handlers 


O/C/EOV Routines 


Requests Reads and writes 
system data set and 
resources volume labels 
Scheduler, EXCP 
Supervisor, processor 
DADSM 


Figure 1. The O/C/EOV Routines Are Invoked by the SVC Interrupt Handler and, in 
Turn, Cal] Other System Control Prograr’ Routines 
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Opening a Data Set 


Closing a Data Set 


Data Set Organization 
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A data set is opened as a result of the issuance of the OPEN macro which 
causes the supervisor call (SVC) second-level interrupt handler (SLIH) to 
pass control to the Open component (SVC 19 or SVC 22 if OPEN TYPE=J 
is issued). 


The Open component (1) completes and modifies the fields of the DCB or 
ACB, the UCB, etc., (2) makes sure that the volume containing or to contain 
the data set is available and ready, and (3) reads and writes volume and data 
set labels associated with the data set. Open also calls access method open 
executors to build a DEB. At the conclusion of Open processing, the data set 
will be ready to be read from or written to by the access method processing 
routines. These access method processing routines will be ready to respond to 
READ, WRITE, GET, and PUT requests and any other I/O options specified 
in the DCB or ACB. 


A data set is closed as a result of the issuance of the CLOSE macro 
instruction, which causes the SVC second-level interrupt handler (SLIH) to 
pass control to the Close component. The Close component restores the fields 
of the DCB or ACB so that they are the same as before the data set was 
opened. Labels are read and written during Close processing and storage 
acquired during Open processing, including the DEB and I/O buffers, is 
released. Close is invoked via SVC 20. 


BSAM and VSAM data sets can be temporarily closed. This involves all of 
the operations performed by Close, except that the DCB or ACB is not 
restored and the DEB is not released. The processing program can resume 
reading or writing the data set without reopening it. The temporary close 
routines (called TCLOSE) are called by the SVC SLIH when a CLOSE 
TYPE=T macro is issued, which results in control being passed to the SVC’ 
23 routines. 


Relatively few of the operations described in this book are performed for data 
sets with the VSAM organization or with the data set organizations associated 
with teleprocessing (BTAM, TCAM, and VTAM). Instead, the Open and 
Close routines recognize these data set organizations and pass control to the 
VSAM and VTAM Open and Close routines (see OS/VS2 Virtual Storage 
Access Method (VSAM) Logic and OS/VS2 VTAM Logic for descriptions 
of these routines). 


= 


Device Type 


The processing performed by the Open and Close components depends upon 
the type of device the data set being opened and closed resides on. SYSIN 
and SYSOUT data sets require very little processing since they reside on unit 
record devices before or after they are spooled by the job entry subsystem: no 
volume mounting is required, and since no labels are allowed, no label 
processing is necessary. Data sets on direct-access and magnetic tape volumes 
require the most processing by Open and Close. In the ‘“‘Method of 
Operation” and ‘Program Organization” sections the Open and Close 
routines are grouped and presented based on the media on which the data set 
to be processed resides. 


End-of-Volume (EOV) Processing 


The primary function of the EOV component is to make it possible for 
problem programs to process multivolume sequential data sets without 
knowing when the end of one volume is reached and processing begun on the 
next volume. 


Input Data Sets: When an input data set is being read and the access method 
READ or GET routine senses that end-of-data has been reached on a given 
volume (as described by the DEB), these routines issue the EOV macro 
instruction to determine whether the end of the data set has been reached or 
merely the end of a segment of the data set has been reached. EOV responds 
by (1) giving control to the user’s EODAD routine if the end-of-data has 
been reached or (2) getting the next segment (volume or member of a 
concatenation) of the data set ready to process. 


Output Data Sets: When an output data set is being written on a 
secondary-storage medium (direct-access or magnetic tape volume), and the 
access method PUT or WRITE routine senses that the end of the space on the 
volume has been reached, the PUT or WRITE routine issues the EOV macro 
instruction to get more space on which to finish writing the data set. When 
direct-access data sets are being written, the EOV routines will obtain space 
on the same volume, or, if necessary, on a different volume. Additional space 
for magnetic tape data sets is always obtained on a new volume. 


Concatenating Input Data Sets: The EOV component also makes it possible 
to read two or more data sets using the same DCB or ACB. When 
end-of-data is reached on the first data set, the EOV component makes sure 
that the volume containing the next data set to be read is mounted, verifies 
the data set labels, and positions the volume to be read. 


Data sets on different media (e.g., magnetic tape and direct-access volumes) 
can also be concatenated using the EOV functions. These kinds of 
concatenations are referred to as concatenation of data sets with unlike 
characteristics and include any data sets that require different DCBs, IOBs, or 
channel! programs. The concatenation is achieved by closing the DCB and 
reopening it. EOV calls the Close component which, when complete, calls 
Open. All SYSIN data sets are processed as if they had unlike characteristics. 


The EOV component is invoked by the SVC SLIH as a result of the issuance 
of either the EOV (SVC 55) or FEOV (SVC 31) macro instruction. 


As with Open and Close, very little processing is done for VSAM EOV 
requests and EOV processing is not supported for the data set organizations 
associated with teleprocessing, BTAM, TCAM, and VTAM. EOV 
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immediately gives control to the VSAM EOV routines, which do not return 
control when complete; instead VSAM EOV returns to the VSAM access 
method routine that issued the EOV macro. 


oh 


Problem Determination e 


The Problem Determination routines gather information about abnormal 
termination conditions associated with determinate errors that arise during 
Open, Close, or EOV processing. The information (data area and control 
block contents) is gathered and written to the GTF data set. Procedures for 
invoking these routines appears in the “Diagnostic Aids” section. 


System Recovery 


Recovery routines are included with the O/C/EOV routines to ensure that a 
system failure does not result from an error encountered during O/C/EOV 
processing. 


The purposes of these routines are (1) to release all resources acquired by the 
O/C/EOV routines in behalf of the failing task; (2) to attempt to return all 
DCBs and ACBs being processed to closed status (called force closing the 
data sets); and (3) to provide diagnostic information about the failure. 


The O/C/EOV recovery routines are invoked by the recovery/termination 
manager (R/TM) via the extended STAE (ESTAE) interface, as described in 
OS/VS2 System Programming Library: Supervisor. 


The DADSM routines use the same recovery routines to release resources and 
provide diagnostic information. 


Data Management Resource Manager (Task Close) 


Task Close is called by the recovery/termination manager (R/TM) to free all 
of the system resources associated with open data sets which were acquired 
on behalf of a terminating task. Task Close is called during normal and 
abnormal termination of both tasks and address spaces. Although the 
functions performed depend on the conditions under which Task Close was 
called, the operations usually performed are to close DCBs and ACBs and 
pass control to access method resource management routines so they can do 
likewise. 
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METHOD OF OPERATION 


This section consists of method of operation diagrams, prefaced with 
information about how to read the diagrams. The paragraphs that follow 
describe the functions of the O/C/EOV-DADSM service routine, 
IFGO19RA. This description is included to provide general information about 
how the O/C/EOV routines use the service routine, which is necessary in 
understanding how the O/C/EOV routines do their job. 


The O/C/EOV-DADSM Service Routine 


The IECRES macro is issued by the O/C/EOV and DADSM modules to link 
to the O/C/EOV-DADSM service routine, IFGO19RA. The service routine 
provides several functions: 


e Transferring control to achieve parallel processing of DCBs and ACBs 
during Open and Close processing, and overlapping of I/O operations with 
other O/C/EOV processing. 


e« Getting and chaining work areas. 


e Establishing the recovery routine address to receive control if an abnormal 
termination condition arises during O/C/EOV or DADSM processing. 


e Copying DCBs and ACBs from the user’s storage to protected storage and 
from protected storage back to the user’s storage. 


The functions performed by the service routine depend on the operands 
coded in the IECRES macro. Some of the operands used most often are 
discussed below; Diagrams 5.1 and 5.2 describe the service routine. Note that 
IFGO19RA is sometimes referred to in the source code as the resident routine. 


Parallel Processing of DCBs and ACBs and Overlapping I/O 


More than one DCB/ACB address may be coded in an OPEN or CLOSE 
macro instruction. To provide for parallel processing of the DCBs and ACBs 
during such a concurrent open or close, the service routine (IFGO19RA) 
synchronizes the processing of the control blocks and transfers control in a 
manner that allows each DCB or ACB to be processed by each module. The 
SYNCH and LOAD operands of the IECRES macro are issued by the 
O/C/EOV modules to achieve parallel processing. The service routine uses 
the module names passed in the WTG table to determine which O/C/EOV 
module is to receive control next. 


The WAIT operand of the IECRES macro is used by the Open and Close 
modules to overlap I/O with concurrent processing of other DCBs or ACBs 
in a parallel open or close. When I/O is required, for example, to read a 
DSCB, the module that issues the EXCP macro to initiate the I/O follows the 
EXCP macro with an IECRES WAIT instruction. This allows continued 
processing of any other DCB or ACB being processed in parallel. 
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Getting and Chaining Work Areas 


The GET operand of the IECRES macro is issued to link to the service ; 
routine to obtain virtual storage for the work areas used by the O/C/EOV Jd 
and DADSM routines. More than one work area is required for many of the 

functions performed, and the work areas are obtained, as needed, at different 

stages of the processing. To make it easy to locate and release the work areas, 

the service routine forward-and-backward chains all of the work areas 

obtained for a given request. 


Establishing the Recovery Routine 


Copying DCBs and ACBs 


At the same time the first block of virtual storage is obtained for a given 
O/C/EOV or DADSM request, the service routine issues an ESTAE macro 
to establish the address of the routine that is to get control from the 
recovery/termination manager (R/TM) if an abnormal termination condition 
arises in subsequent processing. The service routine also ensures that the 
recovery routine is loaded. 


To avert malicious and inadvertent access to one user’s data sets by another 
unauthorized user, the O/C/EOV routines process a copy of the user’s DCB 
in protected storage. Another of the functions provided by the service routine 
is copying the user’s DCB/ACB into protected storage during initialization. 
The service routine also copies the modified DCB back to the user’s storage 
at the conclusion of processing (and whenever a user’s exit routine is given 
control). 


How to Use the Method of Operation Diagrams 
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Figure 2 is an index to help you find the diagrams or group of diagrams that 
you’re interested in by name. 
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Figure 2. Contents: Method of Operation Diagrams 
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Overview Diagrams 


Diagrams 1.0, 2.0, 3.0, 4.0, 5.0, and 6.0 relate input and output (on the left 
and right of each diagram, respectively) to the process steps in the center 
block of the overview diagram. The numbers on the process steps of these 
diagrams are the diagram numbers of subordinate diagrams. The processing 
steps in the overview diagrams summarize the processing that is described in 
the subordinate (bottom-level) diagram. 


Reading the Bottom-Level Diagrams 


These diagrams relate processing steps to the input and output they use. The 
input—control blocks, register contents, records read from I/O devices—is 
on the left. Input is what the processing steps use. The processing steps in the 
center block descnbe the function of a routine or series of routines in the 
source code. Each processing step is preceded by a number that is keyed to 
the extended description on the facing page. The processing block also shows 
flow of control using the on-page and off-page connectors described in the 
legend. The output of the processing steps consists of modified control blocks, 
register contents, and records written to I/O devices. The nature of the use of 
the input—for reference, virtual storage moved from one location to another, 
or records read into virtual storage from I/O devices—is determined from the 
type of data arrow used. The arrows and their meanings are described in the 
legend. Similarly, control block modification, register settings, and records 
written to I/O devices in the output block is determined from the arrow type 
associated with the output. 


Reading the Extended Description 


Legend 
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The extended descriptions provide more detail about a processing step. They 
also identify a processing step with the object modules and labels within these 
object modules where you can find the source code. Each processing step has 
a number that corresponds with a number in the extended description. 


The bold characters preceding the paragraphs of the extended 
description—for example, [IGC0001I—are the object module names (and 
microfiche names) of the source code modules in which you can find the 
implementation of the functions. The characters in brackets following the 
paragraphs of the extended description—for example, [OIN85000]—are 
labels in the source code. 


CONTROL FLOW DATA FLOW 
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> prey C——> input/output 
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Diagram 1.0. Open Overview 
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Diagram 1.1. Open Initialization 
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Diagram 1.1. Open Initialization 


Steps |, 2, and 3 can be entered either via SVC 19 or SVC 
22, OPEN or OPEN, TYPE=J. These steps are repeated 
here to relate the functions to the modules and labels of 
both the OPEN and OPEN, TYPE=J source code. 


1GC0001I—OPEN (SVC 19) 


1 This function is entered from the SVC second-level 
interrupt handler (SLIH) via SVC 19 (the OPEN 
macro). [IGCOOOIT] 


Virtual storage is gotten for the base prefix, WTG 
table, and associated work areas. The prefix and WTG 
table are initialized for this OPEN request. See ““Data 
Area Relationships During O/C/EOV Processing” for 
an example of the work areas obtained and how they 
are chained during open processsing. See Diagram 5.1 
for details concerning the establishment of work areas 
via the IECRES GET,PREFIX=WTG macro. This 
macro call also establishes the address of the recovery 
routine, IFGORROA (see Diagram 6.3). For details 
concerning the use of the WTG table, see ““WTG 
Table.” [OIN00000] 


Virtual storage for aO/C/EOV main work area is 
obtained for each valid entry in the parameter list. The 
parameter list entries can represent (1) DCBs 
specifying an access method or EXCP request or (2) 
ACBs for a VSAM data set, a VSAM or system 
catalog, a spooled (SYSIN or SYSOUT) data set, or a 
VTAM data set. The way each type of DCB and ACB 
is identified is described in “DCBs and ACBs 
Processed.” [OIN10225] 


2 This routine is a second entry point to the Open 
function, entered from Close when data sets with 
unlike characteristics (also called unlike attributes) are 
being concatenated. To concatenate data sets with 
unlike characteristics, it is necessary to modify the 
characteristics contained in the DCB. These DCB 
fields are modified by closing the DCB and reopening 
it. Each work area, except those gotten for VSAM 
catalogs, will be initialized with the control blocks 
needed to read data set labels, etc., and indicators will 
be set in the ACB or DCB to show that an open for the 
data set is in process. This routine also issues the 
IECRES INIT macro to copy the DCB/ACB from the 
user's storage to protected storage. [IGCOIOIH 


3 The JFCB for the data set being opened will be copied 
from the scheduler work area (SWA) to the 
O/C/EOV main work area. [OIN11670] 
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If none of the data sets represented by the entries in 
the DCB/ACB parameter list can be opened, the 
WTG table and associated work areas are freed and 
control is returned to the caller. [OIN 1300] 


IGC0002B—OPEN TYPE=J (SVC 22) 


1 This function is entered from the SVC second-level 


interrupt handler (SLIH) via SVC 22 (OPEN macro, 
TYPE=J). See OS/VS2 System Programming Library: 
Data Management for a description of the uses of the 
RDJFCB and OPEN TYPE=J macros. A WTG table 
is gotten and initialized for this request. [[GC0002B] 


Virtual storage is obtained for an O/C/EOV main 
work area for each DCB and valid ACB in the 
parameter list (VSAM and VTAM ACBs are not valid 
because OPEN TYPE =J is not supported). A 
DEB/DCB, IOB, and ECB are initialized in each work 
area for reading data set labels, etc. This routine also 
issues the IECRES INIT macro to copy the DCB/ACB 
from the uscr's storage to protected storage. 
[OIN21300] 


The user's JFCB is copied from the area pointed to by 
the X‘07’ entry in the DCB exit list to the O/C/EOV 
main work area. Direct access data set names are 
enqueued upon and, to maintain data set security, the 
system’s JFCB for the data set is read in and compared 
with the user-supplied JFCB to verify that no fields 
have been modified by the user that would violate the 
integrity of the system or the security of the data set. 
[OIN21450] 


If none of the data sets represented by the entries in 
the parameter list can be opened, the WTG table is 
freed and control is returned to the caller. 


IGCOOOII 
4 Checks the ACB to determine whether a VSAM or 


master catalog is being opened and, if so, transfers 
control to the VSAM catalog routine, IFGO191X (see 
OS/VS2 Catalog Management Logic). [OIN13200] 


IFGO193A 


Obtains virtual storage for a DEB extension for all 
ACBs and DC8s being processed, except for 
SYSIN/SYSOUT DCBs (the DEB extension is 
obtained for the associated ACB). Initializes the DEB 
extension. [OIN328uU0] 


5 


Cc 


If a VTAM ACB is being openéd, this routine 
transfers control to the VTAM open string, the first 
load of which is IFGO192F. [OIN32820] 


Checks the JFCB to determine whether a VSAM data 
set is being opened and, if so, transfers control to 
VSAM open module IFGO192A (see OS/VS2 Virtual 
Storage Access Method (VSAM) Logic). [OIN32930] 


If the open option is OUTINX or EXTEND, 
IFGO193A saves the JECDISP flags, sets the JECDISP 
to MOD, and changes the open option to OUTIN 
(when OUTINX is specified) or to OUTPUT (when 
EXTEND is specified). 


Checks the DCB and JFCB to determine whether an 
ISAM data set is being opened to be processed using 
the VSAM-ISAM compatibility interface, and, if so, 
transfers control to the VSAM open module IFG0192I 
(see OS/VS2 Virtual Storage Access Method (VSAM) 
Logic). [OIN33200] 


Checks for spooled ACB or DCB (a SYSIN or 
SYSOUT data set) and, if present, transfers control to 
the Open merge function. [OIN32937] 


Checks the TIOT DD entry for the data set to 
determine whether it is a dummy data set or a data set 
on a unit record device and, if so, transfers control to 
the Open merge function. [OIN33800] 


The remaining device types and data set organizations 
(excluding those in steps 4 and 5) require volume 
verification and perhaps volume mounting. Before 
control is transferred to the volume mount and 
verification function, this routine determines the 
volume sequence number of the first volume of the 
data set to be mounted, using the volume sequence 
number in the JECBVLSQ field and the disposition 
specified in the DISP operand of the DD statement. 
The sequence number of the first volume to be 
mounted is saved in the DX VOLSEQ field of the 
O/C/EOV main work arca. For physical sequential 
data sets, this number must be less or equal to the 
number of volume serial numbers specified in the DD 
statement; this prevents attempts to read JFCB 
extensions that don't exist, and also prevents 
processing nonspecific (scratch) requests for any but 
the first volume of the data set. [OIN34660] 
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Diagram 1.2. Open Direct-Access, Volume Mount and Verify 
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Diagram 1.2. Open Direct Access, Volume Mount 
and Verify 


IFGO194A 


1 This routine uses the volume sequence in the 


DXVOLSEQ field of the O/C/EOV work area in 
conjunction with the volume serial numbers in the 
JFCB and JFCB extension to determine the volume 
serial number of the next volume to be processed (the 
new volume), referred to in the source code as volume 
n. If another volume is to be processed after the new 
volume, this routine determines its serial number also 
so that a look-ahead mount message can be issued to 
the operator to mount this volume. The volume serial 
number of volume a—/ is also saved if that volume is 
to be demounted. [VUS03300] However, the 
look-ahead mount is bypassed for all MSS volumes. 
[VUS06500] 


For nonspecific requests (requests for scratch 
volumes), the characters SCRTCH are passed to the 
message issuing and volume verification routines in 
the DXVOLSR72 field. [VUS04000] 


Physical sequential data sets: 


Physical sequential data set organizations include 
BSAM, QSAM, and BDAM create. Data sets being 
accessed using the EXCP access technique are also 
considered to have physical sequential organization. 
This routine finds the volume serial number of the first 
and second volumes to be mounted. These volumes 
are referred to as volume n and volume a+/ inthe 
source code. [VUS03300] 


IFGO194J 


When a look-ahead mount message is required to tell 
the operator to mount the next volume (volume n+/) 
of a physical sequential data set, this routine issues 
message IECSOIE. No verification is made that 
volume n+/ has been mounted until end-of-volume is 
reached on volume na. The look-ahead mount is 
bypassed for all MSS volumes. 


IFGOIS4A 


ISAM, BDAM, and concatenated BPAM data sets: 


This routine finds the volume serial number of the first 
volume to be mounted. For multivolume and 
concatenated data sets, this routine is reentered after 
each volume is mounted and verified to determine the 
next volume serial number so that all volumes can be 


f 


mounted in parallel. [VUS03220] However, the 
look-ahead mount is bypassed for all MSS volumes. 
[VUS06500] 


Checks the UCB entries in the TIOT to determine 
whether a unit allocated to this task can be used to 
mount the volume. [VUS05000] 


Checks the available units for one that is compatible 
with the volume to be processed. [VUS08000] 


Increments the data management count in the 
UCBDMCT of the unit to be used to indicate that the 
unit is in use. [VUS05400] 


IFG0194J 


3 Whena volume must be demounted in order to mount 


the required volume, this routine issues the IECSO2E 
message to the operator unless it is a MSS volume. If a 
MSS volume is being demounted, the ICBMNTDE 
TYPE=DMNT macro is issued to demount the 
volume without operator intervention. [WTO01900] 


Issues message IECSOIA to the operator to tell him 
that a specific volume is to be mounted on a specific 
device. If the request is to mount a MSS volume, the 
WTO message is bypassed. The ICBMNTDE 
TYPE=MNT macro is issued to mount the volume 
without operator intervention. [WTO02000] 


If the volume to be mounted is being opened for a 
TSO task, a message is sent to the TSO terminal user 
to indicate that operator action is required regarding 
his data set. [WTO08800] 


If the volume to be mounted or demounted is a MSS 
volume, no WTO message is issued. A SVC 126 is 
issued which processes the mount or demount request 
without operator intervention. The SVC is called by 
issuing the ICBMNTDE macro. Any error detected 
results ina 413 ABEND. [WT008900, WT008950] 


IFG0194C 


4 If the volume was not already mounted, this routine 


reads the volume label (cylinder 0, track 0, record 3) 
into the O/C/EOV main work area. [DAMV0100] 


If the wrong volume is detected, the volume is rejected 
and this routine retries the read when another volume 
is ready. 


If the volume mount/demount request is for a MSS 
volume and not a SCRATCH request, it is considered 
a hardware error and results in a 413 ABEND for 
OPEN, or a 737 ABEND for EOV. [DAMV01 12] 


Oe C 


nt 


Moves the address of the VTOC from the volume label 


to the UCB. [DAMV0120] 


Verifies that the correct volume is mounted. 
[DAMV0200] 


5 Reads the format-4 DSCB for the volume, then the 


format-1 DSCB for the data set into the O/C/EOV 
main work area. [DAMVI1010] 


For V ata sets, this routine moves the format-! 
DS maintained in the scheduler work area (SWA) 
to the O/C/EOV main work area. [DAMV0290] 


For nonphysical-sequential data sets, checks for an 
ascending volume sequence number in the format-I 
DSCB. [DAMV2300] 


If the DSCB is not found, installation exit module 
IFGOEXOA is executed and subsequently returns one 
of the following codes: 


0 continue 
4 Retry read of DSCB (once only) 
8 ABEND 


IFGO194A 


For data sets being opened for output or for 
modification (DISP=MOD), the last volume of the 
data set is mounted first, unless a sequence number 
was provided in the DD statement (the JECBVLSQ 
field will contain this sequence number). If the last 
track of the data set is not on the last volume of the 
data set, a search of the other volumes, beginning with 
the first volume of the data set, is made to find the end 
of the data set. [VUS02500] 


IFG0194C 


6 When an existing data set is being opened for output, 
this routine checks to verify that the expiration date in 
the format-1 DSCB has passed. [DAMV2410] 


IFGO194J 


When the expiration date has not passed, this routine 
writes message IEC507D to see if the operator wants 
to override the expiration date for the data set. 
[WT003000] 
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IFG0194C 


7 This routine checks for data sets that are password 
protected, and when such a data set is detected, it 
passes control to the Open/EOV password function 
(Diagram 1.7) to verify the password. [DAMV2500] 


If security bypass is not authorized, this routine checks 
the caller's authorization to access a RACF-protected 
data set. If the format-1 DSCB indicates that the data 
set is RACF-protected, the RACHECK macro is 
issued to determine the caller's authorization. If the 
caller is authorized to access the data set, password 
checking is bypassed. If the caller is not authorized to 
access the RACF-protected data set, the job 
terminates with an ABEND. If the data set was not 
RACF-protected, password checking occurs (unless 
security bypass is authorized). [DAMV2500, 
DAMV4500] 


8 This routine gets virtual storage, chains it from the 
O/C/EOV work area, and reads in format-2 and 
format-3 DSCBs. Format-2 DSCBs exist for ISAM 
data sets, and format-3 DSCBs are used for every data 
set that has more than three extents on a volume. 
[DAM V3000] 


IFGO194C 


8 This routine checks for data sets that are password 
protected, and when such a data set is detected, it 
passes control to the Open/EOV password function 
(Diagram 1.7) to verify the password. [DAMV2500] 


9 This routine gets virtual storage, chains it from the 
O/C/EOV work area, and reads in format-2 and 
format-3 DSCBs. Format-2 DSCBs exist for ISAM 
data sets, and format-3 DSCBs are used for every data 
set that has more than three extents on a volume 
[DAMV3000] 
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Diagram 1.3. Open Direct-Access 


DA volume 
mount /verify 


1.2) 1. DSCB-to-JFCB merge suppressed? - yes 


O/C/EOV work area 


a | 


— res | 


User-label track 


See OS/VS Data Management 
Services Guide tor codes 
returned by user label routines 


3. If SUL are specified for an input data set: 


From user’s 
label routine 


3a 


3b Gives control to user’s label routine 


3c 


O/C/EOV work area 


2. Move DSCB fields to JFCB ed 


User label routine interface 


Reads label ON Ld 
iz t DCB 
user’s laber 
routine t Status 
L information 


; user totalling 
save area 


80-byte user label buffer 


Open merge 


Determines whether to read another user label 


$¢ uONeIadG jo poylaFW 


Cc 


Diagram 1.3. Open Direct Access 
IFGO1ISSA 


This function is entered from the volume mount and 
verification function after the first volume of the data 
set or a specified volume containing the data set has 
been mounted, its label verified, and the format-| 
DSCB for the data set has been read into the 
O/C/EOV main work area. (Format-2 and format-3 
DSCBs will also have been read in if they exist for the 
data set on this volume.) 


At entry this routine determines whether a VTOC is 
being opened (indicated by the presence of a format-4 
DSCB in the work area, rather than a format-| 
DSCB). If a VTOC is being opened, the merging of 
the DSCB into the JFCB ts skipped, and control is 
immediately transferred to the JFCB-to-DCB merge 
function (see Diagram 1.8). [IFGOI9SA] 


This routine determines whether the caller has 
requested that the format-| DSCB fields not be moved 
(merged) into the JFCB. The caller of OPENJ can 
suppress merging by setting the JECBTSDM field to 
x‘04’. (ODA11800] 


If the DSCB-to-JFCB merge has not been suppressed, 
the following fields will be merged if they were not 
supplied in the JECB: RECFM, KEYLEN, DSORG, 
LRECL, RKP, BFALN, BLKSIZE (unless ISAM load 
mode is specified in the DCB), and OPTCD. The 
JFCBMASK field is modified to indicate which fields 
in the JECB have been modified with information 
from the format-1 DSCB. [ODA14600] 


IFGO195J (alias for IFGO554L) 


3 


3a 


This routine examines each DCB in the parameter list 
and the JECBLTYP field of each associated JFCB to 
determine whether user labels are to be processed for 
input data sets. (Output user labels will be written 
after the JFCB-to-DCB merge and after the user's 
DCB exit has been taken). [IFG0O554L] 


This routine is entered when user labels are to be read 
and verified by the user for a direct access data set 
being opened for input. This routine gets virtual 
storage to read the labels into, reads in the first label, 
and transfers control to the user's label routine 
identified in the DCB exit list, if there is an active 
entry. When he has verified the label, the user returns 
a code in register 15 to indicate why .her another label 
should be read or whether label processing is 
complete. [ODA20200] 


3c 


Cc 


Reads label, moves it into the user's label buffer, 
copies the DCB being used by Open (the DCB copy) 
into the user's storage, transfers control to the user's 
label routine, and verifies the DEB when the user 
returns control. [ULSYNCH] 


Examines contents of register 15 to determine whether 
to read another label, write an updated label, or 
terminate label processing. [ULT 130] 
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Diagram 1.4. Open Tape, Volume Mount and Verify 
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Diagram 1.4. Open Tape, Volume Mount and 
Verify 


IFGO194A 


This function is entered from the Open initialization 
function when it has been determined that a tape data 
set is to be opened. Using the volume sequence 
number (DX VOLSEQ field) to determine how many 
volumes the data set to be processed resides on, this 
routine searches the JFCB and its extension to find the 
first volume (referred to as volume n in the source 
code). If multiple volumes are being processed, the 
volume serial number of the next volume (referred to 
as volume a+/ in the source code) is also determined 
so that a look-ahead mount message can be issued to 
the operator. [f VOL=REF was specified in the DD 
statement, this routine reads in the referenced list of 
volume serial numbers and selects the first volume to 
be processed, which is the volume represented by the 
last volume serial number in the list. [VUS03300] 


Finds a tape unit allocated to this task that 1s available 
for use with the selected volume (note that the volume 
may already be mounted). [VUS05120] 


For nenspecific (scratch) requests, this routine puts 
the volume serial number of the volume to be used in 
the JFCB and calls the QMNGRIO routine to copy the 
JFCB to the SWA. [VUS06000] 


IFG0194J 


3 


If the volume is not mounted, this routine issues 
message IECSOIA to the operator requesting that he 
mount the volume. [WT0O02000] 


IFGO194F 


The validity of a specification of PROTECT=YES is 
tested. 


This routine attempts to read the first record on the 
tape and determine which of the following label types 
is being processed: standard label (SL), ASCII 
standard label (AL), or unlabeled (NL). The label type 
specified in the JECBLTYP field is checked to ensure 
that the correct label type has been read. An NL tape 
is assumed to be a nonstandard labeled (NSL) tape if 
JFCBLTYP specifies NSL, in which case, no volume 
verification is attempted. If BLP is specified in the 
JFCBLTYP field, volume verification is bypassed. 
Each installation must ensure that this option is not 
misused. This can be done by authorizing a reader 


Cc 


procedure that will accept the LABEL=BLP operand 
of the DD statement. [TMV02300] 


RACF authorization to the verified AL or SL tape is 
checked. If defined, and authorized, sets DEBXDSSI 
indicating RACF defined. 


Several types of label, density, and mode conflicts can 
occur during volume verification. OS/VS Tape Labels 
describes these conflicts and their resultant actions. 
This routine checks for these conflicts. [TMV02300] 


IFGO193C 
6 This object modulc, IFG0193C, performs the same 


function as [FG0553C. If this routine has not been 
replaced by an installation-supplied label editor 
routine (which must be named OMODVOLI), it 
performs the label editing function. It is entered when 
label and density conflicts are encountered during 
volume verification. The type of label or density 
conflict is indicated in the JFCBMASK+5 field. An 
installation-supplied OMODVOLI routine can resolve 
the conflict and reset the appropriate bit, or can reject 
the volume by setting the high-order bit in the 
UCBDMCT field of the UCB. OMODVOLI is entered 
in key O and is passed the address of the copy of the 
DCB in protected storage. The address of the DCB is 
passed in register 2. OMODVOLI must return to 
IGGO190A, which is an alias for IFGO193D. 
Reference information concerning the label editor 
routines is provided in OS/VS Tape Labels. 
[OMOO01000] 


IFG0193D 


This routine is called by the users OMODVOLI 
routine or by IFGO193C, the standard label editing 
routine. [DSLOQ000] 


When a standard label is to be destroyed, this routine 
reads labels until a HDR1 label has been read in. 
[DSLO1100] 


Checks RACF ALTER authorization to the volume. If 
authorized, bypasses password check. If not 
authorized, requests that another volume be mounted. 
If not defined, performs password check. 


Checks the HDR1 label for a password-protected data 
set, and if such a data set is encountered, issues an 
error message to the operator, then requests that 
anvther volume be mounted. [DSL08200] 


Cc 


. * 


Checks expiration date, and if the expiration date has 
not passed, issues a message to the operator to get 
permission to ignore the expiration date. [DSL03000] 


Issues a message to the operator requesting permission 
to destroy the label. [DSL05000] 


Checks the HDR2 label to ensure that the existing data 
set is not an existing checkpoint data set. If it is, issues 
a message to the operator. [DSL06500] 


Writes a tape mark over the standard volume label to 
destroy the label, then determines from the 
JFCBLTYP field which type of label is requested. Sets 
UCBTFLI accordingly. [DSL0O7000] 


If tape is RACF defined and the user is authorized, 
deletes RACF definition of the volume. 


IFGO193E 


Entered when a standard label is to be created. this 
routine issues a message to the operator to ask him to 
specify the volume serial number and owner of the 
data set. [CSLO1000] 


Check RACF ALTER authorization to volume. 
Abnormally terminate if not authorized to specific 
request. Reissue operator message if not authorized to 
nonspecific request. Continue if volume not RACF 
defined. SET DEBXDSSI bit if authorized and 
continue. 


Verifies operator's specification and completes the 
label. Translates EBCDIC to ASCH for AL tapes. 
[CSLO3500] 


Rewinds the tape to load point and writes the label. 
Writes a tape mark after HDR1 label. [CSL04000] 


IFG0194J 


7 If more than one volume is being processed, and the 
second volume is not mounted, this routine issues the 
look-ahead mount message (IEC5OIE) for the next 
volume to be processed. No verification is made that 
volume n+/ has been mounted until EOV is readied 
on volume n+/, [WTQ02500] 


IFGOI94A 


8 When the volume has been mounted and verified, 
labels accepted, and a look-ahead mount message 
issued, this routine transfers control to the routine, 
determined during Open initialization, that will handle 
the specified label type and processing mode (input or 


6C “UCHeIadO JO poyvaWw 
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output): SL tape, input or output, Diagram 1.5; NL 
(BLP) tape input, Diagram 1.6, first entry; NSL tape, 
input, Diagram 1.6, second entry; NL (BLP) or NSL 
tape, output, Diagram 1.8. 
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Diagram 1.5. Open SL Tape 
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Diagram 1.5. Open SL Tape 
IFGO195B 


1. This function is entered from the tape volume mount 


and verification function when it has been determined 
that the tape volume has standard labels (AL, AUL, 
SL, or SUL). The volume serial number will have been 
verified. The tape may be being opened for input or 
output. 


The block count in the DCB (DCBBLKCT) is zeroed 
in all DCBs except EXCP DCBs, which don't have the 
device-dependent portion of the DCB. [OTA25200] 


This routine ensures (1) that checkpoint data sets 
reside only on passwore-protected volumes and (2) 
that non-check point data sets are not written on 
volumes that contain checkpoint data sets. 
[OTA25400] 


If the file sequence number in the UCB (UCBDMCT) 


- is zero, the file sequence must be obtained from the 


first header label. The file sequence number and count 
are set to one in case there is a tape mark instead of an 
HDR1 label. [OTA25480] 


The tape is positioned to the start of the file for input 
and output. The tape is positioned to the end of the 
file for RDBACK and output DISP=MOD. 
[OTA26100] 


When positioning to the start of the file, the tape is 
rewound if the tape starts at the desired file sequence. 
[OTA26850] 


When opening for output to file |, UCBFSEQ is set to 
1. [OTA26700] 


The tape is backspaced or forward spaced files 
according to the relationship of UCBFSEQ and 
JFCBFSEQ. 


If the HDRI label of the desired file is passed while 
spacing to the end of the data set, the DSNAME is 
checked so that any ABEND or DISP=MOD previous 
volume recovery can save an average of 8 minutes it 
might take to space to the trailer labels. [OTA26910] 


Trailer labels are checked for EOV labels while 
forward spacing files or if no spacing is done. 
Encountering an EOV label causes the next volume to 
be used instead of the current one. [OTA26920] 


Tests the option byte in the open parameter list to 
determine whether the data set is being opened for 
output or OUTIN. If either of these options is 
specified, standard label processing is performed after 
the Open merge function. See the Open merge and the 


a 


Tape, SL output label functions, Diagrams 1.8 and 
1.9, respectively. [OTA27000] 


3 Reads the label at which the volume is positioned. For 
input data sets this will be the HDR1 label. For data 
sets being opened for DISP=MOD or to be read 
backward, this will be the EOV1 or the EOF1 label. 
[OTA27 100] 


This routine ensures (1) that checkpoint data sets 
reside only on password-protected volumes and (2) 
that non-checkpoint data sets are not written on 
volumes that contain checkpoint data sets. 
[OTA25400] 


IFGO195H 


4 Compares the last 17 characters of the data set name 
field of the JECB (JFCBDSNM) with the data set 
identifier field in the HDR1I label. [OTA28500] 


If they do not match and the data set is a generation 
data set, the tape may have been created under DOS. 
[OTA28800] 


After the DSNAME has been verified, the block count 
is moved from the label to the DCB (DCBBLKCT). 
(This is only done if the label read is a trailer label 
and, in the case of an EXCP DCB, the 
device-dependent section of the DCB is present.) 
[OTA29300] 


For data sets being opened for input then output 
(INOUT), this routine checks the expiration date, 
and if it is not passed, asks the operator to specify 
whether or not the volume can be used. 

[OT A29500] 


IFGO195K 


5 Reads HDR2 label and verifies that it is the expected 
label type. [OTA3 1400] 


If the HDR2 label indicates that a checkpoint data set 
is being opened, this routine turns on the indicator in 
the DSAB that identifies it as a checkpoint data set. 
[OTA32100] 


6 If the JECBTSDM switch, which indicates whether the 
label is to be merged into the JFCB, is not set, the 
RECFM, blocking attribute, CCTYPE, BLKSIZE, 
LRECL, tape recording technique, and BUFOF are 
merged into their counterpart fields in the JFCB that 
contain zeros. [OTA32300] 


7 Checks to see if user labels are specified. [OTA33900] 


C 


IFGO195N . 


8 Checks to see if the user's DCB points to an active user 
label exit routine. For DD statements specifying 
DISP=MOD, the exit must be an active user trailer 
(UTL) exit; for data sets be opened for input, the user 
header label (UHL) exit must be active. [OTA35000] 


Gets storage and reads user labels into it: translates 
ASCII labels to EBCDIC; verifies that they are user 
labels; moves labels into the user's buffer and transfers 
control to the user to verify the labels. When control is 
returned, this routine continues to read labels, one at a 
time until eight labels have been read or until the user 
indicates, using a return code in register 15, that no 
more need be read. [OTA35700] 


Copies the DCB in protected storage to user’s storage 
before passing control to the user’s label routine. 
[OTA37400] 


9 When all labels have been read, this routine 


repositions the tape to the beginning of the data (to 
the end of the data for DISP=MOD). [0TA36700] 


10 If the data set is password-protected, this routine 
transfers control to the Open password-protection 
function (Diagram 1.7), which, when the password has 
been successfully supplied, passes control to the Open 
merge function. If the data set is not 
password-protected, control is passed immediately to 
the Open merge function. [OTA37000] 
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Diagram 1.6. Open Tape, NSL and NL(BLP) 
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Diagram 1.6. Open Tape, NSL and NL (BLP) 
IFGO195C 


1 


When the label processing requested is no label (NL) 
or bypass label! processing (BLP), this routine is 
entered after the correct tape volume has been 
mounted and/or verified, Sets the block count to zero 
in the copy of the user's DCB. [OTA50100] 


Sets the file sequence number and count to one in the 
UCB if they are currently set to zero. [OTA50200] 


The tape positioning done for NL and BLP data sets 
depends on (1) the setting of the JFECB and UCB file 
sequence numbers (the JFCBFLSQ field indicates the 
sequence number of the data set to be processed on 
the tape and the SRTEFSEQ field of the UCB 
contains the sequence number of the data set to which 
the device is currently positioned) and (2) whether the 
data set is being opened (a) for input or output or (b) 
to be read backward or updated (DISP=MOD). 
[OTA50600] 


IFG0195D for Input Data Sets 
IFG01960 for Output Data Sets 


4 This routine is entered when a tape volume witha 


nonstandard label has been mounted. Parallel DCB 
processing is synchronized, register 5 is set to point to 
the DCB parameter list, and control is transferred to 
NSLOHDRI for input data sets or. NSLOHDRO for 
output data sets. [OTA60100] [OTA70100] 


When control is returned from NSLOHDRI or 
NSLOHDRO, this routine checks to see if any of the 
mounted volumes were rejected. If so, control is 
passed to the tape volume mount and verification 
routine to attempt to get the right volume mounted. 
NSLOHDRI and NSLOHDRO set the UCBDMCT 
field to X‘80’ to indicate rejection. [OTA60500] 
[OTA70800] 
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Diagram 1.7. Open/EOV Password Protection 
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Diagram 1.7. Open/EOV Password Protection 


This function is entered to verify that the problem 
program requesting access to a data set is authorized to 
process a password-protected data set in the mode that he 
is requesting (1.c., to read from or write to the data set). 
This function is entered from: Direct Access Volume 
Mount and Verification (IFG0194C); Standard Label 
Tape Positioning, Input, and Output (IFGOL9SN, 
IFGOI9SK, and IFGOL96BN, respectively); and EOV Tape 
Input, New Volume (1FG0553H). It is also entered from 
the Scratch and Rename components of DADSM (see 
OS/VS2 DADSM Logic), and from Check point/Restart 
(see OS/VS2 Checkpoint/Restart Logic) to verify that the 
task being restarted still has access to the 
password-protected data sets. For tape data sets (only SL 
tapes can be password protected), this function is entered 
after the tape volume and label have been verified and 
other security checks (expiration date, file protection 
ring) have been passed. For SL output tapes this function 
is called after open merge processing. For SL input tapes, 
this function is called before open merge processing. 


IFGO195T for Open and EOV requests 
SECLOADA for Scratch, Rename, and Restart requests 


1 These routines check the ISCBSWT 1 field of the JSCB 
to determine whether password protection processing 
can be bypassed. [OEP01000 or SRPO1000] 


This routine checks the caller’s authorization to 
access a data set that is RACF-protected if security 
bypass is not authorized. If the format-1 DSCB 
indicates that the data set is RACF-protected, the 
RACHECK macro ts issued to determine the 
caller's authorization. If the caller is authorized to 
access the data set, password checking is bypassed. 
Otherwise, the job terminates with an ABEND. If 
the data set is not RACF-protected, password 
checking occurs (unless security bypass is 
authorized). If the tape volume has been shown to 
be RACF-protected, password checking is 
bypassed. 


These routines next get a fetch-protected work area 
for used by the password-protection routines and 
initialize it. 

IFGO195V 


2 If the format-1 DSCB represents a VSAM data space, 
control is transferred to VSAM Security (IDA0192G) 
to ensure security protection for each data set in the 
data space. [TAS02000] 


c 


3 This routine reads the format-4 DSCB, determines the 
extents of the VTOC, then reads the format-| DSCB 
of the PASSWORD data set into the security work 
area. [TAS03000] 


4a This routine checks the DSAB to see if the address of 
a password record is in the DSABPTTR field; if so, 
this routine enqucues on the data set name of the 
PASSWORD data set and reads the record from the 
PASSWORD data set pointed to by the current DSAB 
in the DSABPTTR field into the security work area. 
[TAS04000] 


4b If the data sct name in the password record is the same 
as the name of the password-protected data set, this 
routine verifies that the protection mode indicator in 
the password record is compatible with the processing 
mode indicated in the option byte of the DCB 
parameter list for this data set. If they are compatible, 
this routine indicates successful password processing, 
increments the use count in the password record, and 
writes it back to the PASSWORD data set, then 
returns to the Open, EOV, DADSM, or 
Checkpoint/Restart function that called. [TAS04500] 


5 If the password record pointed to by the DSABPTTR 
does not contain the same data set name as the 
password-protected data set, this routine checks for 
the presence of a master password in the TSBPSWD 
field of the TSB. The TSB exists only for TSO tasks. 
[TASOSO00] 


READPSWD 


6 Issues a message to the operator or the TSO terminal 
to get the password. One retry is made to allow for 
operator error. If the correct password ts not supplied, 
a 913 ABEND is issued using the DMABCOND 
interface to the problem determination routines. 
[O0SQ41000] 


IFGO195U 


7 This routine searches the PASSWORD data set for the 
matching DSNAME concatenated with the password 
supplied by the operator or TSO terminal user. If the 
password record containing the matching DSNAME 
and password is found, the record is read into the 
security work area. [PCRO1000] 


8 If the search is successful, the protection-mode 
indicator in the password record (which can indicate a 
read-only data set or a data set that can be both read 
and written to) is compared with the use mode of the 
data set (from the option byte of the current DCB 


~~ 


parameter list entry). If the protection-mode indicator 
is incompatible with the user’s processing mode (for 
example, the user is opening the data set for output, 
but the protection-mode indicator allows reading 
only), a913 ABEND is issued. [PCRO1 100] 


SECLOADA 


9 For Scratch or Rename requests, the security work 
area 1s freed and control is returned to Scratch or 
Rename. [SR P09000] 


IFGO195U 


10 If the processing mode (input or output) is compatible 
with the protection mode, (read-only, read-and-write), 
the use count in the password record is increased by 
one, the updated record is written to the PASSWORD 
data set and the PASSWORD data set is dequeued. 
The address of the password record is put in the 
DSABPTTR field of the DSAB. [PCR02000] 


IFGO195T 


11 When all of the data sets represented in the 
DCB/ACB parameter list have been verified, control 
is passed to the Open or EOV calling routine named in 
Step 1. [OEP09000] 
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Diagram 1.8. Open Merge 
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Diagram 1.8. Open Merge 


1. This function is entered by all of the callers of Open, 


except those opening VSAM or VTAM data sets. It is 
entered after Open initialization for SYSIN, SYSOUT, 
and dummy data sets (Diagram 1.1); it is entered 
following volume mounting and verification and SL 
input processing for data sets on tape and direct-access 
devices (Diagram 1.3); it is entered after label 
processing (Diagrams 1.5 and 1.6) for input data sets 
on tape; it is entered after volume mounting and 
verification for output data sets on tape (Diagram 

1.4); and it is entered after password processing 
(Diagram 1.7) for password-protected data sets. 


rc 


If the user has specified that control be given to his 
JFCBE exit routine, storage in the user’s protection 
key is obtained, and the JFCBE is copied to it from the 
SWA, and control is passed to the user's JFCBE exit 
routine. If the user's JFCBE exit routine requests that 
the JFCBE be updated, the user's copy is copied to the 
SWA. The JFCBE is the JFCB extension for the 3800. 


For YIQ data sets, this routine turns off the 
write-verify bit in the DCBOPTCD field of the DCB. 
Write-verification is not necessary for VIO data sets. 
[O0MG31300] 


This routine checks for requests to open a VTOC for 
modification. For these requests, the caller's 
authorization to update VTOCs is verified via the 


IFGO0196J TESTAUTH macro instruction. [OMG32200] 


Tests for graphics and teleprocessing DCBs. Different 
fields are merged for these DCBs. [OMG1 1600] 


Determines, based on data set organization, which 


IFG0196M 
3 All appropriate fields of the JFCB are merged 


Lp uonesadg jo poyyp 


fields should be merged from the JFCB to the DCB. 
For all access methods, OPTCD, RECFM, BLKSIZE, 
DEN. BFTEK or BFALN, BUFL, and BUFNO are 
merged. For ISAM, BDAM, and SAM data sets, 
additional fields are merged. A record of the fields 
merged is kept in the JECBMASK field. [OMG15000] 


IFGO196K 


For graphics and telecommunications DCBs, such as 
those representing the TCAM line group or the TCAM 
message queue, this routine moves the OPTCD, 
RECFM, DEN, BFTEK-BFALN, BUFL, and BUFNO 
in the JFCB into the fields of the DCB that contain 
zeros. [OMG25000] 


IFGO196L 


For a TSO task opening for input (INPUT, INOUT, 
RDBACK, or UPDAT), this routine sets up LRECL 
and BLKSIZE in the DCB, if not specified by the user. 
[IFG0196L] 


If the user has specified that control be given to his 
DCB exit routine, the DCB in protected storage is 
copied into the user's storage and control is transferred 
to the user's DCB exit routine. This exit allows the 
problem program to modify the DCB before the 
reverse merge (DCB-to-JFCB) is made. When control 
is returned, the user's DCB is copied into protected 
storage so that his modifications will be reflected in 
the DCB used by Open. [OMG30600] 


unconditionally when a data set is being opened for 
OUTPUT or OUTIN. Only the fields that contain 
zeros are merged when the data set is being opened for 
INPUT, INOUT, or RDBACK. [OMG44800] 


Checks for a tape data set being opened for output, 
determines label processing required, and transfers 
control accordingly. For tape input data sets, label 

processing was done previously. [OMG46860] 


IFG0196P (alias for IFG0555,J) 


5 For direct-access data sets with user labels, this routine 


passes control to the user's output header label routine 
if there is one marked as active in the DCB exit list. 
Before control is transferred to the user's routine, the 
DCB in protected storage is copied to the user's 
storage. The user's label routine builds output user 
labels and returns control. [ULSYN6P] 


When control is returned from the user’s label routine, 
this routine writes user labels or terminates label 
processing, based on the contents of register 15 passed 
by the user’s label routine. [ULSYNCH3] 
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Diagram 1.9. Open Tape, SL Output 
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Diagram 1.9. Open Tape, SL Output 


This function is entered to complete standard label 
processing for tape data sets being opened for output. It ts 
entered after the tape has been positioned to the HDRI 
label. It is entered after the merge processing 
(JFCB-to-DCB, user’s DCB exit, and DCB-to-JFCB) so 
that the user can be sure that the DCB and JFCB are 
updated before using information from these blocks in the 
user labels. 


IFGO196N 


1 Reads HDRI label, verifies that it isa HDR1 label, 
and translates ASCII labels to EBCDIC. [0TA38300] 


This routine finds the 17 or fewer characters in the 
JFCBDSNM field and compares them to the HDRI 
data set name field. [OTA37850] 


IFG0196Q 


2 Checks current date (from CVT) with the expiration 
date specified in the HDRI label. [OTA41 100] 


IFGO194J 


If the expiration date has not passed, this routine 
writes the IECSO7D message to the operator to get 
permission to use the data set anyhow. 


IFG0196Q 


If the operator does not want to use the current data 
set, this routine returns to the volume mount and 
verification routines (IFG0O194A) to see if another 
volume can be mounted. [OTA42800] 


3 Determines whether the current data set is password 
protected. Since the new data set is being opened for 
output, the current data set will be destroyed. Before 
destroying the current data set, this routine passes 
control to the Open/EOV password-protection 
function to verify that the current data set can be 
destroyed. [OTA41600] 


4 This routine receives control either (1) when the 
current data set on the volume is not password 
protected or (2) when the password has been verified. 
It reads the current volume label, updates it as 
required, using information from the UCB, and writes 
the new volume label. [OTA41800] 


c 


IFGO196T 


5 If PROTECT=YES was specified, the tape volume is 
defined to RACF and the PROTECT=YES indicator 
in the JFCB is set to zero. The DEB extension is set to 
indicate the current volume is RACF-defined. 


Using information from the UCB for the unit and 
TIOT and JFCB for the data set, this routine 
constructs the HDR1 and HDR2 labels and writes 
them on the volume. Contents of the HDRI and 
HDR2 labels is described in OS/VS Tape Labels. 
[OTA43 100] 


6 Determines whether user labels are specified for the 


data set. If not, goes to the access method executor 
determination function. [OTA45300] 


IFG0196U 


7 If the user's DCB exit list contains an active UHL 
address, this routine gets virtual storage in which the 
user's labels will be constructed, builds the user label 
routine interface, copies the DCB from protected 
storage to user storage and transfers control so that 
the user can construct a label. [OTA46300] 


8 When control is returned from the user's UHL routine, 
this routine determines whether to write the label or to 
terminate user label processing, based on the contents 
of register 15 passed by the UHL routine. The codes 
are described in OS/VS Data Management Services 
Guide. [OT A46900] 


When all labels have been written, this routine writes a 
tapemark after the last label, frees virtual storage 
gotten for user label processing, and transfers control 
to the access method executor determination function. 
[OT A47600] 


When eight labels have been written, or when the user 
indicates that no more labels are to be written, this 
routine transfers control to the access method 
executor determination function. [OTA47800] 
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Diagram 1.10. Open Access Method Executor Determination and Final Processing 
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Diagram 1.10. Open Access Method Executor 
Determination and Final Processing 


This function is entered following the JFECB-to-DCB and 
DCB-to-JFCB merges and after label processing is 
complete. 


IFG0196V 


1 This routine determines which access method executor 
routines are to receive control, based on (1) whether a 
DCB or an ACB is being opened and (2) the DSORG 
and MACRF of the data set to be processed. The 
control block type, DSORG, and MACRF represented 
by each parameter list entry are examined and the 
module ID of the appropriate open executor is entered 
in the WTG table. [OMG92000] 


For VTAM ACBs, no access method processing is 
necessary. The WTG entry for VTAM ACBs is set to 
zeros. [OMG91200] 


Parallel processing for multiple DCBs and ACBs is 
suspended in this routine, to be resumed when the last 
access method executor returns control to JIFGO196W 
(alias IGGO190S), the access method return routine. 
The access method executors also use the WTG table 
(1) to determine which DCB to process next and (2) to 
transfer control to the appropriate access method 
executor string. 


2 For SYSIN and SYSOUT ACBs the CCTYPE, 
LRECL, BLKSIZE, and RECFM fields of the JFCB 
are merged into the corresponding fields of the ACB 
that contain zeros. [OMG90450] 


3 If an ACB exit routine has been provided and is active, 
this routine copies the ACB from protected storage to 
the user’s storage and transfers control to the user's 
ACB exit reutine, so that the user can modify the ACB 
before beginning to process the data set. When control 
is returned to this routine, the user's ACB is copied 
back into protected storage. [OMG90495] 


4 The JFCBTSDM field is tested to determine whether 
the user wants to merge from his ACB to the JFCB. If 
he wants the merge, this routine merges CCTYPE, 
LRECL, BLKSIZE, and RECFM. [OMG90520] 


5 Puts an access method executor ID in the WTG table 
entry for each DCB, copies the DCB or ACB from 
protected storage to the user's storage, and when all 
parameter list entries have been processed, transfers 
control to the first open executor in the WTG table. 
\‘hen each open access method executor string 
completes the processing of a DCB or ACB, it 


oo 


transfers control to the module identified in the next 
WTG table entry. The last entry in the WTG table is 
the module name of the access method executor return 
routine, [IFGO196W (alias IGGO190S). See Chart 1.2 
of the “‘Program Organization” section for a list of the 
access method executor modules that can receive 
control from Open. [OMG90580] 


IFG0196W, whose alias is IGG0190S 


6 This routine reestablishes the WTG table entries so 
that parallel processing of multiple-DCB open requests 
can be resumed. [OFN00400] 


If the access method executors did not chain the DEB 
extension from the DEB, this routine does so. 
[OFNO00900] 


7 For output data sets on direct access devices 
represented by a DCB, this routine merges JFCB fields 
into the format-! DSCB. The fields merged are 
OPTCD, RECFM, KEYLEN, DSORG, BLKSIZE, 
LRECL, and RKP. The merge is performed for (1) 
OUTPUT and OUTIN options, (2) the UPDAT option 
if DSORG=DA in both the DSCB and JFCB, (3) if 
DSORGSIS and load mode is being used. 
[OFN20000] 


If the format-! DSCB has been modified during open 
processing, this routine writes it back to the VTOC. 
[OFN22000] 


IFGO196X 


8 When the DCB specifies that the EXCP access 
technique is being used (MACRF=E) and appendages 
are specified, this routine determines whether the 
problem program is authorized (1.e., executing ina 
system storage key (key 0 through 7), or authorized 
under APF). If authorized, this routine enters the 
appendage IDs in the AVT. If not authorized, it 
compares the [Ds with the list of authorized 
appendages contained in the IEAAPPOO member of 
SYS1.PARMLIB before entering the appendage IDs in 
the AVT. The IEAAPPOO member is read into a 
storage area called the EXCP appendage name table 
during system initialization. [OFN41200] 


Restores the Open option byte in each entry of the 
Open parameter list for DCBs that are still being 
opened. [OFN50000] 


If the JECDISP flags were saved by IFG0193A (see 
Diagram 1.1), IFGO196X restores the JFCDISP flags. 


? 


Format of EXCP appendage name table 


+0(0) 
+4(4) 
+8(8) 
+12(C) 
+16(10) 
+20(14) 
+24(18) 
+28(1C) 


Appendage ID; 


Appendage ID4 


T Appendage ID,_, T Appendage ID, T 


9 Updates the JFCB in the scheduler work area (SWA). 
This is done so that any modification made to the 
JFCB during Open processing will be reflected when 
trailer labels are written at EOV or Close or when the 
data set is reopened. [OFN50000] 


IFGO198N 


10 The VSAM open string returns to this module when it 
has completed VSAM open processing. Only portions 
of the Open initialization and final processing are 
performed for VSAM data sets. 


This routine sets a bit in the DSAB to indicate an open 
data set and increments the use count in the 
DSABOPCT field. [OFN73810] 


This routine restores the option byte of each 
parameter list entry of each DCB/ACB that is no 
longer being opened. [OFN70000] 


Synchronizes processing of all DCBs and ACBs to this 
point in processing. [OFN70400] 


Modifies the DSABOPCT field of the DSAB for the 
data set to indicate that it is open and modifies the 
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DSABs of data sets opened for input or update. 
[OFN73810] 


If a checkpoint data set security interface exists, this 
routine updates the DCB/ACB in the caller's storage 
to the status of the DCB in protected storage and 
moves the address of the security interface error 
routine into the READ, WRITE, and CHECK routine 
address locations in the DCB. [OFN73930] 


If an abnormal termination has been deferred by the 
user's DCB ABEND exit routine so that the balance of 
a multiple open could be completed, this routine issues 
the ABEND macro to transfer control to the VS2 
recovery/termination manager (R/TM). See OS/VS2 
Scheduler and Supervisor Logic for a description of 
the R/TM function. [OFN75400] 


Frees virtual storage obtained for all work areas 
obtained in previous processing, loads a return code in 
register 15, and returns to caller. [OFN76400] 
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Diagram 2.0. EOV Overview 
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ACB 


Volume on 
which EOV 
condition was 
encountered 
(current volume) 


Diagram 
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EOV (SVC 
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2.1 


2:2 


2.3 
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2.5 


2.6 


2.7 
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Initializes for EOV processing; handles 
SYSIN EOD and concatenation of data 
sets with unlike characteristics 


Tape, input: reads labels and repositions 
the current volume 


Tape, input: gets the new volume ready to 
read; concatenates data sets with like 
characteristics 


Tape, output: writes labels and repositions 
current volume 


Tape, output: gets the new volume ready to 
write to 


Direct-access, input: repositions current 
volume; concatenates data sets with like 
characteristics; gets new volume ready to read 


Direct-access, output: gets more Space on 
current volume; or gets more space on a new 
volume, updates F1 DSCB on current volume, 
and gets new volume ready to write to 


a 


‘ * 
User’s EODAD routine HH 


Updated control 
blocks: DEB, DCB, 
DSAB, UCB 


Next volume of 
data set to be 
processed (new volume) 


CO 


Next volume of 
data set (new volume) 


a 
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Diagram 2.1. EOV (FEOV) Initialization 
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. Restarts input and returns O/C/EOV main work area 


From user’s 


SYNAD routine -Or- R/TM (001 ABEND) a 
Terminates task and DEB/DCB, IOB, 
channel program 


Ri 
ry t DCB/AMB 


User’s QSAM buffers 


4. For EQV requests, gets work area and 
initializes it 


DX VOLSEQ 


5. For QSAM output data sets, completes 
FEOV(SVC 31) Outstanding I/O (flushes buffers) 


Schedul k SWA FOV. 
cheduter work area ( ) 6. Checks for VSAM data sets EOV 


JFCB 
CO Se 7. Constructs control blocks and moves JFCB 


8. For tape and DA volumes: 


L/ 
LT 8a Determines volume serial number 


&b Determines device type and processing mode 


Ee» Tape input 
2.4) Tape output 


E>. DA input 
9. For SYSIN data sets or data sets on unit record 


devices: User’s EODAD 
routine 2.8) DA output 


9a If EOD has been reached, releases work area 


DEB 
9b If data sets with like characteristics are being 
concatenated, updates the DEB (BE@ ( Return } DEBUCBAD 
9c If SYSIN DD* data sets or data sets with unlike 


ree ; | 
characteristics are being concatenated, calls close crate 


Initialization 
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Lg uonesadg jo poujaw 


| ae 


Diagram 2.1. EOV (FEOV) Initialization 


The EOV component is entered from the SVC 
second-level interruption handler (SLIH) as a result of the 
EOV or FEOV macro instructions, which expand to issue 
an SVC 55 and SVC 31, respectively. The EOV macro 
instruction (SVC 55) is issued by the BSAM and QSAM 
processing routines and by other programs using the 
EXCP access technique (1) to get the next volume of a 
multivolume data set mounted, (2) to get the next data set 
ready to process when two or more input data sets are 
being concatenated(see OS/VS2 JCL for a definition of 
concatenation of data sets), and (3) to obtain more space 
to continue writing an output data set. SVC 55 is also 
used by the SAM, BDAM, and ISAM processing routines 
to pass control to the user's SYNAD routine and to issue a 
system 001 ABEND (permanent I/O error). 


The primary purpose of the EOV macro is to (1) indicate 
an end-of-data condition so that the problem program's 
end-of-data (EODAD) routine will receive control on 
input and (2) to assure that the next volume of a 
physical-sequential data set is mounted, verified, and 
ready to read from or write to. It is used for this purpose 
by all of the system access method routines that process 
sequential data sets: BSAM, QSAM, and VSAM. 


No EOV processing is provided for VSAM data spaces or 
data sets in the descriptions of the EOV functions that 
follow. See OS/VS2 Virtual Storage Access Method 
(VSAM) Logic for descriptions of how the EOV condition 
is handled for VSAM data sets. 


The FEOV (force EOV) macro instruction (SVC 31) is 
used by programs processing physical sequential data sets 
to get the next volume mounted, verified, and ready to 
process. 


IGCOO00SE—EOV (SVC 55) 


1 This routine is entered for four purposes: (1) to 
abnormally terminate a task (steps 2 and 3); (2) to 
zather diagnostic information to pass to the user's 
SYNAD routine (step 2); (3) to restart 1/O operations 
in response to the return code passed from the user's 
SYNAD routine, (step 3); and (4) to process an EOF 
ut EOV condition (step 4). At entry to the 
LEOV/SYNAD function, a test is made to determine 
whether the caller of EOV ts entering to abnomally 
terminate a task. Two ways are used to terminate a 
task: if the caller passes X‘00 00 10 00’ in register 0, a 
message is issucd and an ABEND macro with an OOI 
system code is issued by IFG0551D; for other system 
codes, the DMABCOND macro is used to call the 
EOV ABEND interpretation routine (IFGO550P) 


C 


before issuing the ABEND (see Diagram 6.1). See also 
OS/VS2 SAM Logic for descriptions of the routines 
that issue the EOV macro to abnormally terminate a 
task, to obtain diagnostic information, and to signal 
EOV and EOF. 


This routine tests the IOBCSW unit exception bit to 
determine whether a permanent f/O error has been 
encountered by the calling routine. If not, EOV 
processing commences at step 4. If, however, an I/O 
error has been encountered, this routine continues to 
step 2 to gather diagnostic information or to terminate 
the task. [EINO1200] 


IFGO551B 


2 When the access method routine issues an EOV macro 
because a permanent I/O error has been encountered, 
this routine determines whether the user has provided 
a SYNAD routine. If aSYNAD routine is active, this 
routine sets codes in register 0 and register | (see 
OS/VS Data Management Macro Instructions for the 
codes passed) then exits to the access method routine 
that issued the SVC 55. If no SYNAD routine is 
provided and the data set is being processed using 
BSAM, an immediate 001 ABEND is issued. If QSAM 
is being used, the error option specified by the user is 
used (see step 3). [EIN0O5700] 


3. When the user's SYNAD routine returns control to the 
access method routine, the access method routine 
issues another EOV macro, and this routine is given 
control. This routine will restart I/O operations if: (1) 
the data set is being read (an input data set) and (2) if 
the access method is QSAM, the accept or skip option 
is coded in the DCBEROPT field. Otherwise, 
{[FGO551D ts given control to issue an 001 ABEND. 
[EIN06600] 


IFG0551D 


Builds a message containing job name, step name, 
etc., and issues the ABEND. [EIN08400] 


IGCOO0SE 


4 Gets O/C/EOV main work area, initializes it, and 
copies user's DCB into protected storage. Note that 
VSAM (VS2 Master) catalog requests make use of an 
AMB instead of an ACB. The AMB ts obtained in 
protected storage and therefore need not be copied. 
[EINO1700] 


If end-of-data was reached for a BPAM data set 
(DSORG=PO), this routine passes control to the 


C 


user's EODAD routine, or if no EODAD routine was 
supplied, abnormally terminates the task. [EIN02200] 


IGC0003A—FEOV (SVC 31) 


5 This routine is entered via SVC 31 (FEOV macro 
instruction) to get the next volume of a data set 
mounted, verified, and ready to process. FEOV is not 
supported for SYSIN, SYSOUT, dummy, VSAM or 
VTAM data sets; requests for FEOV processing for 
these kinds of data sets result in an immediate return 
to the caller. [EIN03200] 


Gets O/C/EOV main work area, initializes it, and 
copies the user's DCB into protected storage. 
[EIN03420] 


For QSAM data sets opened for output (or update), 
this routine ensures that all I/O requests against the 
DCB have been completed. [EIN03650] 


IFGOS51F 


6 If the EOV request was issued for a VSAM catalog 
(AMBDSORG=X‘‘0008,” AMBID=X‘‘40,” and 
AMBINFL=X“‘10”), this routine transfers control to 
IFGO550Y to provide the JFCB for the catalog. 
IFGOSSOY returns to this routine. If a VSAM data set 
is being processed, but is not a VSAM master or user 
catalog, this routine copies the JFCB from the SWA to 
the O/C/EOV main work area. [EIN10800] 


If the EOV request is for a VSAM data set (or for a 
VSAM catalog), this routine transfers control to 
IFGO557A, the first load of the VSAM EOV 
component. Unlike Open and Close processing, 
VSAM EOV does not return to this EOV component 
when it has completed processing the EOV request for 
the VSAM data space, because only one ACB/DCB at 
a time ts processed with each issuance of the EOV 
macro. [EIN11251] 


7 This routine constructs a DEB/DCB and IOB to be 


used in subsequent I/O operations, such as reading 
and writing the DSCB, writing tape marks, labels, 
end-of-file marks, etc. This routine also copies the 
JFCB for the data set from SWA to the O/C/EOV 
main work area. A PURGE macro instruction is issued 
to halt any I/O scheduled or started using the current 
DEB. This DEB is disconnected from the user’s DCB 
and connected to the DCB copy. Hence, if an attempt 
is made to start 1/O against this DEB, the DEB 
validity check will fail and a 16E ABEND will result. 
At conclusion of EOV processing, the DEB is 
reconnected to the user's DCB if the EOD has been 
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reached, or the DEB is released if EOV or EOD with 
concatenation conditions are encountered. 
(EIN11250] 


If user-totaling has been specified, this routine adjusts 
the count in the user-totaling save area so that it 
reflects the last record on the volume (for EOV 
conditions) or the last record of the data set (for EOF 
conditions). [EIN 11800] 


IFGOS51H 


8a For data sets on tape and direct-access devices, this 


routine examines the volume serial numbers in the 
JFCBVOLS field, looking for the volume serial 
number that matches the volume serial number in the 
UCB associated with the volume on which the EOF or 
EQOV condition was encountered. As many as five 
volume serial numbers are contained in the JFCB and 
as many as 15 more in each JFCB extension. 

[EIN #3600] 


When the volume serial number is located, its relative 
position in the JFCB is saved in the DX VOLSEQ field 
of the main work area to indicate which volume of the 
data set is currently being processed. [EIN 13700] 


8b This routine determines the next EOV function based 


on device type and on whether the data set is opened 
for input or output. For data sets on tape, determines 
label type. [EIN 15600] 


IFG0552X 


%4 This routine is entered when (1) EOD is reached for a 


SYSIN data set or a data set on a unit record device 
and (2) no concatenation is in progress. This routine 
first releases the work areas obtained in previous EOV 
processing, then alters the old PSW to transfer control 
to the users’s EODAD routine. [ECM60500] 


9b Data sets with like characteristics are those that can be 


processed correctly using the same DCB, IOB, and 
channel program. This means, generally, that the 
DCB must be opened for physical-sequential 
processing, and that the device type, record format, 
and blocksize of the data sets must be the same. Note 
also that concatenated SYSIN data sets are treated as 
if they were data sets with unlike characteristics. 


IFGO551F 


Copies the JFCB for the next data set in the 
concatenation from the SWA to the O/C/EOV main 
work area. [EIN1 1250] 


Ce 


IFGO551H 


Determines that module IFG0552X is to receive 
control when SYSIN data sets are being processed. 
[EIN 155500] 


IFG0552X 


% 


For concatenated, like data sets on unit record 
devices, this routine puts a UCB address in the DEB. 
This UCB address represents the unit from which the 
next data set of the concatenation will be read. 
[ECM61600] 


Data sets on tape and DA devices with like 
characteristics are concatenated as shown in the EOV 
tape input and direct-access input functions (Diagrams 
2.2 and 2.6). 


If the data sets have unlike characteristics or the 
current or next data set in the concatenation is a 
SYSIN data set, this routine passes the address of the 
current DCB in register 1, along with the work areas, 
to the second entry point in the initial load of the 
Close component (see Diagram 3.1). At the conclusion 
of Close processing of the current DCB, the Close 
final function passes control to the second entry point 
in the first load of the Open component (see Diagram 
1.1) to reopen the DCB with the characteristics of the 
new data set. [ECM61900] 


IFGOS551L 


This routine is entered when the sequential access 
methods (BSAM or QSAM) are being used. 
Reschedules any 1/O requests that were purged during 
previous EOV processing; primes buffers, if required. 
Exits to the calling routine, a QSAM synchronizing 
routine or a BSAM check routine. [EIN0O2290] 
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Diagram 2.2. EOV Tape Input—Current Volume 
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Diagram 2.2. EOV Tape Input—Current Volume 


When an input data set on a tape device is being 
processed, this function is entered to handle labels and 
positioning of the volume on which the EOV or EOF 
condition was encountered (this volume is called the 
current volume). When this function is completed, the 
next volume to be processed (called the new volume) 
must be mounted, verified, and positioned to be read. 


I1FGO551H 


1 A test is made to determine whether NSL processing is 
to be deferred until the data set is closed. [f not, an 
exit is taken to the users EOV input trailer label 
processing routine, NSLETRLI. Before transferring 
control to NSLETRLI, the copy of the DCB in 
protected storage is copied into the user’s storage. 
[EIN 15950] 


IFG0552R 


2 This routine is entered to read the EOF! or EOVI 
(HDR | if the tape is being read backward) label and 
verify that the block count in the DCB its equal to the 
block count in the label. [ET10400] 


3 If the block count in the DCB is not equal to the block 
count im the data set label, this routine copies the DCB 
in protected storage to the user's storage and takes the 
exit to the user’s block-count-unequal routine. 


IFGO553B (alias for IFGO0202H) 


If data set activity is being monitored, this routine 
constructs a type-14 SMF record and writes it to the 
SMF data set. [CCM02040] 


IFG0552T 


4 If the data set has standard user labels (SUL or AUL), 
this routine is called to read in the labels and pass 


control to the user’s label routine so that the labels can 
be verified. [ETI04100] 


Positions tape to the logical end-of-file or 
end-of-volume: after the tape mark that delimits the 
user trailer labels if the tape was being read forward, 
or at load point if the tape was being read backward. 
[ETI05900] 


Determines whether EOF or EOV condition was 
encountered for this request. [ETI06100] 


c 


IFGO552X 


§ This routine is entered when EOV has been reached 
and there is no more to read. This routine releases the 
work areas obtained in previous processing, then 
transfers control to the user's EODAD routine. 
[ECM60500] 


6 If the data sets with unlike characteristics are being 
concatenated, this routine passes the address of the 
current DCB in register |, along with the work areas 
obtained during previous EOV processing to the 
second entry point in the initial load of the Close 
component (see Diagram 3.1). At the conclusion of 
Close processing of the current DCB, the Close final 


function passes control to the second entry point in the 


first load of the Open component (see Diagram 1.1) to 
reopen the DCB with the characteristics of the new 
data set. [ECM61900] 


IFGO552V 


7 When a data set concatenation (like characteristics) is 
in process, this routine puts the pointer to the next 
DSAB in the O/C/EOV main work area, and puts the 
new DSAB/TIOT pointer in the DEB extension. 
[ET111200] 


8 If only one tape unit is allocated to the data set or if 
the unit on which a volume of the data set is to be 
mounted is not ready, no positioning is done. 
{ET1I08500] 


If a positioning option was coded in the FEOV or 
OPEN macro, this routine positions the current tape 
according to the option specified. The FEOV options 
and the resultant action are: “REWIND,” rewind the 
tape, and ‘““‘LEAVE,” position to the logical end of the 
data set (the first record of the data set if it was being 
read backward, or the last record of the data set if it 
was being read forward). The OPEN positioning 
options are: “REREAD,” position to the logical 
beginning of the data set, and ‘‘LEAVE,” position to 
the logical end of the data set. [ETI08700] 


If neither FEOV or OPEN positioning options were 
specified, the disposition specified or implied in the 
DD statement is used to position the data set. 
[ETI10500] 


During tape positioning, the UCB file sequence 
number and count are increased by one each time a 
tape is positioned to the end of the data set (following 
trailer labels). [ETI11500] 


Decreases data management count by I (sets it to 0), 
then determines whether (1) data sets are being 


C 


concatenated or (2) an EOV condition is being 
processed. [ETI1 1000] 


IFGO551F 


Copies the JFCB for the new data set in the 
concatenation into the O/C/EOV main work area. 
[EIN11250] 


IFG0551H 


Copies the volume sequence number in the JFCB 
(JFCBVLSQ) to the O/C/EOV main work area 
(DXVOLSEQ) so that the new volume can be verified 
or mounted and verified (see Diagram 2.2). 
[ETI13700] 
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Diagram 2.3. EOV Tape Input—New Volume 
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Diagram 2.3. End-of-Volume, Tape Input—New 
Volume 


This function is entered at the conclusion of processing of 
the volume on which the EOV or EOF condition was 
encountered, the current volume (from Diagram 2.2). 


IFGO554A (alias for IFGO194A) 


1. This routine is entered during EOV processing to (1) 
ensure that the second and subsequent volumes of 
multivolume tape data sets are mounted and (2) when 
data sets on tape are being concatenated, to verify or 
mount and verify the the first volume of the second 
and subsequent data sets of the concatenation. Using 
the volume sequence number (DX VOLSEQ field), 
which has been changed to indicate that the next 
volume is to be processed. this routine searches the 
JFCB and its extension to find the volume to be 
mounted next (referred to as volume n in the source 
code. If multiple volumes are being processed, the 
volume serial number of the next volume (referred to 
as volume 1 + / in the source code) is also 
determined so that a look-ahead mount message can 
be issued to the operator. [VUS03300] 


Finds a tape unit allocated to this task that is available 
for use with this volume (note that the volume may 
already be mounted). Adds one to the data 
management count in the UCBDMCT field of the 
UCB to indicate that the unit has been selected. 
[VUS05 120] 


IFG0554J (alias for IFG0194J) 


If the volume is not mounted, this routine writes a 
message to the operator requesting that he mount the 
volume. [WTO02000] 


IFGO554F (alias for IFG0O194F) 


This routine attempts to read the first record on the 
tape and determines which of the following label types 
is being processed: standard label (SL), ASCII 
standard label (AL), or unlabeled (NL). The label type 
specified in the JECBLTYP field is checked to ensure 
that the correct label type has been read. An NL tape 
is assumed to be a nonstandard labeled (NSL) tape if 
JFCBLYTP specifies NSL, in which case volume 
verification is bypassed. Note: each installation must 
ensure that this option is not misused; this is done by 
authorizing a reader procedure that accepts DD 
statements specifying LABEL=BLP. [TM V02300] 


Cc 


RACF authorization to the verified AL or SL tape is 
checked. If defined and authorized, sets DEBXDSSI 
indicating RACF-defined. 


IFGO554A (alias for IFGO194A) 


The JFCB is updated in the scheduler work area 
(SWA) when a new volume is accepted. 


IFG0554J (alias for IFG0194J) 


If more than two volumes are being processed, and 
volume n+/ is not mounted, this routine issues the 
look-ahead mount message (IECSOIE) for the next 
volume to be processed. No verification that the 
volume is mounted is made until end-of-volume is 
reached for the preceding volume. [WTO002500] 


When volume vn has been mounted and verified, labels 
accepted, and look-ahead mount message issued, this 
routine determines label type and processing mode 
(input or output) and transfers control accordingly. 


IFGO553F 
2 Positions the tape to the logical beginning of the data 


set, according to the direction in which the tape is 
being read, forward or backward. If the tape has 
standard labels, tries to get to the HDR1 (EOVI if 
reading backward) label. [ET1I18700] 


For data sets with nonstandard labels, this routine 
copies the DCB from protected storage to the user’s 
storage and transfers control to the NSLEHDRI 
routine to verify the labels. (If the volume is rejected 
by NSLEHDRI based on the content of the labels, the 
volume mount and verification function, step 1, is 
reentered to try to get the right volume mounted.) 
[ET12 1200] 


Reads the label at which the tape is positioned and 
verifies that it is HDR1 or EOVI label as expected for 
the direction in which the tape is being read. 

[ET123 100] 


Compares the data set name in the JFCB (last 17 
characters) with the data set name in the label just 
read. [ET123700] 


If user labels are specified in the JFCB, and a user 
label exit is active in the DCB exit list, this routine gets 
storage for the user's labels and reads them in, one at a 
time, passing control each time, to the user’s label 
routine so the labels can be verified. [ETI24600] 


C 


Before control is passed to the wser’s label routine, the 
DCB in protected storage is copied to the user's 
storage. [ET125200] 


When user label processing is complete, this routine 
positions the new volume to the first record of the data 
set on this volume (last record if the tape is being read 
backward). [ET126100] 


IFG0553H 


6 


7 


If the data set is password protected, determines the 
protection mode of the data set. If an EOV condition 
is being processed, the password may have already 
been verified during open processing of the first 
volume. If a concatenation is in process, the password 
will have to be verified for each data set in the 
concatenation that is password protected. [ETI28600] 


The address of the new UCB is put in the DEB and the 
DEBVLSQ field is modified using the contents of the 
DXVOLSEQ in the O/C/EOV main work area. EOV 
tape input processing is now complete. This routine 
determines whether to release the work areas and 
return to the caller (EXCP access technique being 
used) or to transfer control to the SAM EOV executor, 
IFGO551L (sequential access method being used). 
[ET130300] 


IFGO551L 


This routine is entered when the sequential access 
methods (BSAM or QSAM) are being used. If 
CHKPT=EOV is specified, control is passed to 
IFG0558X, which takes a checkpoint and then returns. 
If the user's DCB exit list contains an active EOV exit 
routine address, the EOV exit routine is given control. 
[EIN2 1400] 


Reschedules any I/O requests that were purged during 
previous EOV processing; primes buffers, if required. 
Exits to the calling routine, a QSAM synchronizing 
routine or a BSAM check routine. [EIN02290] 
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Diagram 2.4. EOV Tape Output—Current Volume 
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Diagram 2.4. EOV Tape Output—Current Volume 


When an output data set on a tape device is being 
processed, this function is entered to write tape marks 
and labels and reposition the tape that was being 
processed when the EOV condition was encountered. 


IFG0551H 


1 If nonstandard labels are specified, this routine copies 
the DCB in protected storage to the user's storage and 
passes control to the user's NSL output trailer label 
processing routine, NSLETRLO. Steps 2 and 3 of this 
function are not executed for NSL tapes; however, a 
final tapemark will be.written when control is returned 
from NSLETRLO. [EIN16500] 


IFGO551P 


2 Writes a tape mark to delimit the last record of the 
- data on the tape. This tape mark precedes the EOVI 
label if an SL tape is being written. [IFG0551P] 


Constructs the EOV1 label using information in the 
JFCB, DEB, and DCB. [ETO00200] 


Writes EOV1 label. [ETO01400] 


IFGOSSIR 


Constructs the EOV2 label using information from the 
JFCB, DCB, and TIOT. [ETO02000] 


Writes EOV2 label. [ETO03000] 


3. When user labels (SUL or AUL) are to be written, this 
routine gets a buffer in which the user’s label routine is 
to construct the labels, establishes the interfaces, 
copies the DCB from protected storage to the user's 
storage, and transfers control to the user's label 
routine. When control is returned, this routine 
responds to the contents of register 15, which indicates 
whether to write another user label or to continue with 
the next step. [ETO03400] 


IFG0553B (alias for IFGO0202H) 


4 If data set activity is being monitored, this routine 
builds and writes a type 15 SMF record to the SMF 
data set. [(CCM02040] 


IFGO551T 


5 For all but NSL tapes, this routine writes a final tape 
mark to delimit the labels or the da’ . on the current 
volume. [ETO05100] 


cr 


6 This routine determines whether a positioning option 
(REREAD, REWIND, or LEAVE) was specified. If 
so, the volume is positioned accordingly. [ETO05700] 


When the tape has been positioned, this routine adds 
one to the file count and file sequence number in the 
UCB (UCBFSCT), then sets the data management 
count (UCBDMCT) to zero. Processing is complete on 
the current volume. This routine now adds one to the 
volume sequence number (DXVOLSEQ) in the 
O/C/EOV work area to tell the volume mount/verify 
routines which volume is to be processed next. 
[ETO06300] 


This function passes control to the EOV tape ouptut, 
new volume function (Diagram 2.5). 
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Diagram 2.5. EOV Tape Output—New Volume 
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Diagram 2.5. EOV, Tape Output—New Volume 


This function is entered after labels have been written on 
the current volume and the current volume has been 
positioned for subsequent processing. A look-ahead 
mount message will have been issued at the time the data 
set was opened, so the new volume may already be 
mounted. 


IFGO0554A (alias for IFGO194A) 


1 This routine uses the volume sequence in the 
DXVOLSEQ field of the O/C/EOV work area in 
conjunction with the volume serial numbers in the 
JFCB and JFCB extension to determine the volume 
serial number of the next volume to be processed (the 
new volume), referred to in the source code as volume 
n. If another volume ts to be processed after the new 
volume, this routine determines its serial number also 
so that a look-ahead mount message can be issued to 
the operator to mount this volume. The volume seria! 
number of volume #-/ is also saved if that volume is 
to be demounted. [VUS03300] 


Finds a tape unit allocated to this task that ts available 
for use with this volume (note that the volume may 
already be mounted). [VUS05120] 


Finds a unit that is compatible with the volume being 
mounted. [VUSO8000] 


1FG0554J (alias for IFG0O194J) 


If the volume is not mounted, this routine writes a 
message to the operator requesting that he mount 
volume n. [WTO02000] 


IFG0554F (alias for IFGO194F) 


This routine attempts to read the first record on the 
tape and determines which of the following label types 
is being processed: standard label (SL), ASCII 
standard label (AL), or unlabeled (NL). The label type 
specified in the JECBLTYP field ts checked to ensure 
that the correct label type has been read. An NL tape 
is assumed to be a nonstandard labeled (NSL) tape if 
JFCBLYTP specifics NSL, in which case volume 
verification is bypassed. Each installation must ensure 
that this option is not misused. This can be done by 
authorizing a reader procedure that accepts DD 
statements that specify LABEL=BLP. [TMV02300] 


" RACE authorization to be verified AL or SL lape Is 
checked. Hf defined and authorized, sets DEBXDSSI 
indicating RACF-defined. 


Y 


Cc 


Several types of label, density, and mode conflicts can 
occur during volume verification. OS/VS Tape Labels 
describes these conflicts and their resultant actions. 
This routine checks for these conflicts. [TMV02300] 


IFG0553C (EMODVOLI) 


This object module performs the same functions as 
IFGO0193C (OMODVOLI). If this routine has not been 
replaced by an installation-supplied label editor 
routine (which must be named EMODVOLI), it 
performs the label editor functions. It is entered when 
label and density conflicts are encountered during 
volume verification. The type of label or density 
conflict is indicated in the JECBMASK-+5 field. An 
installation-supplied EMODVOLI routine can resolve 
the conflict and reset the appropriate bit or the 
EMODVOLI routine can reject the volume by setting 
the high-order bit in the UCBDMCT field of the UCB. 
EMODVOLI is entered in key 0 and is passed the 
address of the copy of the user's DCB in protected 
storage. The address of the copy of the DCB is passed 
inregister 2. EMODVOLI routines must return to 
IGGOSSOP. Reference information concerning the 


label editor routines is provided in OS/VS Tape Labels. 


[OMOOIL000] 


1FGO0553D (alias for IFGO193D) 


This routine can be called by the user's EMODVOLI 
routine or by IFG0553C, the standard label editing 
routine. [DSLO0000] 


When a standard label is to be destroyed, this routine 
reads labels until a HDRI label has been read in. 
{DSLO1100] 


Checks RACF ALTER authorization to the volume. If 
authorized, bypasses password check. If not 
authorized, requests that another volume be mounted. 
If not defined, performs password check. 


Checks the HDR1 label for password-protected data 
set, and if one is encountered, issues an error message 
(o the operator, then requests that another volume be 
mounted. [DSL08200] 


Checks expiration date, and if the expiration date has 
not passed, issues a message to the operator to get 
permission to ignore the expiration date. [DSL03000] 


Issucs a message to the operator requesting permission 
to destroy the label. [DSLO5000] 


| C 


* 
Checks the HDR2 label to ensure that the existing data 
set is not an existing checkpoint data set. If it is, issues 
a message to the operator. [DSL06500] 


Writes a tape mark over the standard volume label to 
destroy the label, then sets UCBTFLI accordingly. 
[DSL07000] 


If tape is RACF-defined, deletes RACF definition of 


| the volume. 


IFGO553E (alias for IFGO193E) 


Entered when a standard label is to be created, this 
routine issues a message to the operator to ask him to 
specify the volume serial number and owner of the 
data set. [CSLO1000] 


Verifies operator's specification and completes label. 
Translates EBCDIC to ASCII for AL tapes. 
[CSL03500] 


Check RACF ALTER authorization to volume and 
consistency to previous volume. Abnormally terminate 
if not authorized to specific request. Reissue operator 
message if not authorized to nonspecific request. 
Continue if volume not RACF-defined. Set 
DEBXDSSI bit, if authorized, and continue. 


Rewinds tape to load point and writes label. Writes 
tape mark after HDRI label. [CSL04000] 


IFG0554A (alias for IFGO194A) 


When the volume has been mounted and verified, 
labels accepted, and look-ahead mount message 
issued, this routine determines label type and 
processing mode (input or output) and transfers 
control accordingly. 


IFG0554J (alias for IFG0O194J) 


If more than one volume is being processed, and the 
second volume is not mounted, this routine issues the 
look-ahead mount message (IECSOIE) for the next 
valume to be processed. No verification that the 
volume is mounted is made until end-of-volume is 
reached for the preceding volume. [WTO02500] 


IFG0552B 
3 Copies the DCB from protected storage to the user's 


storage and transfers control to NSLEHDRO. 
[ETO15200] 
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4a This routine is centered to process an SL tape. The 
label following the volume label is read and a test is 
made to verify that it is a HDRI label. [ETO15800] 


4b If the existing data set on the new volume is password 
protected, this routine makcs sure that the security of 
the the existing data set will not be violated when it is 
overwritten. If the overwriting would violate the 
password protection, (that ts to say, if the data set has 
a read-only protection mode indicator, it cannot be 
written on), control is passed to the volume mount and 
verification routines to ask the operator to mount 
another volume. [ETO16200] 


IFG0554J (alias for IFGO194J) 


4c If the expiration date has not passed, this routine 
writes the IEC507D message to the operator to get 
permission to overwrite the data set. [WTO03000] 


IFG0552B 


4d Rewinds the tape to load point. Constructs a new 
volume label using inforamtion in the JFCB and the 
UCB, then writes the label. [ETO17 100] 


If the previous volume was RACF-protected, the 
present volume is defined to RACF as part of the same 
volume profile as the previous volume. 

rs 


IFG0552D 


4e Using information from the JFCB, this routine 
constructs a HDRI label and writes it. [ETO18900] 


IFGO0552F 


Using information from the JECB, DCB, and TIOT, 
this routine constructs an HDR2 label and writes it. 
([ETO20400] 


§ If user labels are requested and the DCB exit list 
contains an active output user-label routine entry, this 
routine gets a buffer in which the user will construct 
user header labels, copies the DCB from protected 
storage to the user's storage, and transfers control to 
the user’s exit routine. When control is returned, this 
routine responds to the code passed in register 15, 
either writing the label or discontinuing user label 
processing. [ETO21700] 


6 Writes tape mark after the labels (after the data on 
nonlabeled tape). [ETO21800] 


7 If the EXCP access technique is being used, this 
routine releases the work areas obtained in previous 


c 


processing and returns to the routine that issued the 
EOV or FEOV macro. [ETO26650] 


IFGO551L 


8 This routine is entered when the sequential access 
methods (BSAM or QSAM) are being used. If 
CHKPT=EOV is specified, control is passed to 
1FG0558X, which takes a checkpoint and returns. If 
the user's DCB exit list contains an active EOV exit 
routine address, the EOV exit routine is given control. 
[EIN21400] 


Reschedules any I/O requests that were purged during 
previous EOV processing; primes buffers, if required. 
Returns control to the issuer of the EOV macro, a 
QSAM synchronizing routine or a BSAM check 
routine. [EIN02290] 
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Diagram 2.6. EOV Direct-Access Input 
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Diagram 2.6. EOV, Direct-Access Input 


This function is entered from the EOV initialization 
function when an end-of-volume condition is encountered 
while processing an input data set on a direct-access 
device. The EOV condition means that (1) EOD has been 
reached; (2) the current data set is part of a concatenation 
of two or more data sets and EOD has been reached on 
one of the data sets; (3) a multivolume data set is being 
processed and EOV has been reached on one of the 
volumes; or (4) a mulitvolume data set is being processed 
and an FEOV macro was issued to get the next volume 
(or the next data set of a concatenation) ready to process. 


IFG0553P 


1. This routine reads the format-1 DSCB for the data set 
if (1) user trailer labels are to be processed or (2) a 
data set on which the records may span volumes is 
being read for updating or (3) if the format-! DSCB is 
needed to determine whether this volume contains the 
last track written to the data set. This routine also 
determines whether SMF records should be written. 
[ED1I00200] 


For VIO data sets, this routine copies the format-1 
DSCB maintained in the scheduler work area (SWA) 
into the O/C/EOV main work area. [EDI01250] 


IFGO554L 


2 This routine is entered when user labels are to be read 
and verified by the user for a direct access data set 
being opened for input. This routine gets virtual 
storage to read the labels into, reads in the first label, 
and transfers control to the user’s label routine 
identified in the DCB exit list, if there is an active 
entry. When he has verified the label, the user returns 
a code in register 15 to indicate whether another label 
should be read or if label processing is complete. 
([FG0554L] 


Reads label, moves it into the user’s label buffer, 
copies the DCB being used by EOV (the DCB copy) 
into the user's storage, and transfers control to the 
user's label routine. [ULSYNCH] 


Examines contents of register 15 to determine whether 
to read another label, write an updated label, or 
terminate label processing. [ULT 130] 


IFGO553B (alias for IFGO202H) 


If an SMF type-14 record is required (data set activity 
is being monitored by SMF), this routine builds JFCB 


ce 


and device independent DCB/DEB segment of the 
SMF record. [CCM02100] 


IFG02021 


Completes DCB/DEB segment, builds UCB segment, 
and issues the SMFWTM macro to write the record (o 
the SMF data set. [CCM02520] 


IFG0552X 


3 The following steps (3a, 3b, and 3c) deal with the 
end-of-file (EOF) condition. The EOF condition can 
result from reaching end-of-data (EOD) while 
processing concatenated data sets (steps 3b and 3c) or 
from reading end-of-data with no more to read (step 
3a). 


3a This routine is entered when EOV has been reached 
and there is no more to read. This routine releases the 
work areas obtained in previous processing, then 
transfers control to the users EODAD routine. 
[ECM60500] 


3b If the data sets have unlike characteristics or the 
current or next data set in the concatenation is a 
SYSIN data set, this routine passes the address of the 
current DCB in register 1, along with the work areas 
obtained during previous EOV processing to the 
second entry point in the initial load of the Close 
component (see Diagram 3.1). At the conclusion of 
Close processing of the current DCB, the Close final 
function passes control to the second entry point in the 
first load of the Open component (see Diagram 1.1) to 
reopen the DCB with the characteristics of the new 
data set. [ECM61900] 


3c This routine is entered when concatenation of data 
sets with like characteristics is in process. Decrements 
data management count in the UCB (UCBDMCT 
field) to indicate that this unit will no longer be used to 
process the data set. [ECM61320] 


If a VIQ data set is being processed and the 
UCBDMCT field (the data management count of 
DCBs open to the data set) is zero, this routine issues 
the WICLOSE macro to indicate that the data set is no 
longer being used by this task. [ECM61340] 


Updates the pointer to the DSAB in the O/C/EOV 
main work area (DXDSABAD), and in the DEB 
extension (DEBXDSAB). Updates the TIOT entry 
pointer in the DCB (DCBTIOT). [ECM61450] 


IFGOSS1F 


Copies the JFCB for the new data set in the 
concatenation to the O/C/EOV main work area. 
[EIN1 1250] 


IFGO551H 


Moves the volume sequence number in the JFCB 
(JFCBVLSQ) to the O/C/EOV main work area 
(DXVOLSEQ) so that the new volume can be verified 
or mounted and verified. 


IFG0554A 


4 This step is entered under two conditions: (1) from 
step 1 (IFG0553P) when an end-of-volume condition 
has been encountered and the next volume is to be 
mounted/verified and (2) from step 3c (IFG0551H) to 
get the next volume of a data set concatenation 
mounted/verified. 


4a This routine uses the volume sequence in the 
DXVOLSEQ field of the O/C/EOV work area in 
conjunction with the volume serial numbers in the 
JFCB and JFCB extension to determine the volume 
serial number of the next volume to be processed (the 
new volume), referred to in the source code as volume 
n. If another volume is to be processed after (he new 
volume, this routine determines its serial number also 
so that a look-ahead mount message can be issued to 
the operator to mount this volume. The volume serial 
number of volume n-/ is also saved if that volume is 
to be demounted. [VUS03300] 


Finds a unit allocated to this task that is available for 
use with this volume (note that the volume may 
already be mounted). [VUS05120] 


IFGO194J 


If the volume is not mounted, this routine writes a 
message to the operator requesting that he mount the 
volume. If the request is to mount a MSS volume, the 
WTO message is bypassed. The ICBMNTDE 
TYPE=MNT macro is issued to mount the volume 
without operator intervention. [WTO02000] 


IFGO554C (alias for IFG0194C) 


Reads the volume label (cylinder 0, track 0, record 3) 
into the O/C/EOV main work area. [DAMV0100] 


J 


») 
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If the volume mounted is not the one requested and if 
the volume is a MSS volume and not a scratch request, 
it is considered a hardware error and results in a 413 
ABEND for OPEN, or a 737 ABEND for EOV. 
(DAMV0120] 


Moves address of the VTOC from the volume label to 
the UCB. [DAMV0120] 


Verifies that the correct volume is mounted. 
[DAM V0200] 


If the MSS virtual volume is on a JES3-managed unit, 
then an SSOB parameter is built and the IEFSSREQ 
macro is issued to set up the volume for JES3 control. 


Reads the format-4 DSCB for the volume, then the 
format-1 DSCB for the data set into the O/C/EOV 
main work area. [DAMV1050] 


If the format-!1 DSCB is not found, installation exit 
module IFGOEXOA is executed and subsequently 
returns onc of the following codes: 


(0) continue 
4 Retry read of DSCB (once only) 
§ ABEND 


For RACF: This routine checks the user’s 
authorization to access a RACF-protected data set. 
For an output PS data set at EOV, this routine 
checks to ensure that the data set on the subsequent 
volume is consistent with the RACF definition for 
the data set on the previous volume. 


This routine checks for data sets that are password 
protected, and when such a data set is detected, calls 
the Open/EOV password function to verify the 
password. [DAMV2504] 


This routine gets virtual storage, chains it from the 
O/C/EOV main work area, and reads in format-3 
DSCBs. [DAMV3000] 


IFG0553X 


4b When the new volume has becn mounted and verified, 


this routine deletes the DEB containing the extents 
from the old volume and builds a new DEB containing 
the extents from the format-! and format-3 DSCB 
from the new volume. If a data set spanning volumes 
is being updated, the old DEB is saved and its address 
is saved in DCBIODAD. Updates the DEBVOLSEQ 
field using the contents of DX VOLSEQ in the 
O/C/EOV main work area. [IFG0553X] 


C 


For physical sequential data sets which reside on MSS 
volumes, the ICBACREL TYPE=ACQ macro is 
issued to acquire space on virtual DASD for the 
extents of the data set. [EDI10720] 


IFGO554L 


4c This routine is entered when user header labels are to 
be read and verified by the user for a direct access data 
set being opened for input. This routine gets virtual 
storage to read the labels into, reads in the first label, 
and transfers control to the user’s label routine 
identified in the DCB exit list, if there is an active 
entry. When he has verified the label, the user returns 
a code in register 15 to indicate whether another label 


should be read or if label processing is complete. 
[IFGOS54L] 


Reads label, moves it into the user's label buffer, 
copies the DCB being used by Open (the DCB copy) 
into the user's storage, transfers control to the user’s 
label routine, and verifies the DEB when the user 
returns control. [ULSYNCH] 


Examines contents of register 15 to determine whether 
to read another label, write an updated label, or 
terminate label processing. [ULT 130] 


IFGO553Z 


If members of partitioned (BPAM) data sets are being 
concatenated using BSAM or QSAM, this routine 
issues a BLDL macro and puts the absolute address 
(CCHHR) of the member in the DCBFDAD field. 
[EDI1 1500] 


4d If the EXCP access technique is being used, this 
routine frees the work areas obtained in previous 
processing copies the DCB in protected storage to the 
user's storage and returns to the caller of EOV. 
[ED111725] 


IFGO551L 


4e This routine receives control when an access method 
(BSAM or QSAM) is being used. If CHKPT=EOV is 
specified, control is passed to |FG0558X, which takes 
a checkpoint and then returns. This routine passes 
control to the user's EOV exit routine if there is an 
active address in the DCB exit list, resets all indicators 
showing the EQV condition in the DCB, schedules any 
pending I/O requests, and passes control to the the 
routine that issued the SVC 55 (EOV macro), a QSAM 
synchronizing routine or a BSAM check routine. 


31307 AOA/2501D/UadO ZSA/SO PL 


Diagram 2.7. EOV Direct-Access Output 


O/C/EOV main work area EOV Current volume 
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ES 1. For FEOV requests: File mark Gr 
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From DADSM Extend PA 
zy DADSM 2. Gets more space on current aay? ©, LA) 


e 7 Extend —or— 
R13 PA 3. If additional space cannot be obtained on 
current volume: 
Return code: 3a Updates Fl DSCB on current volume. Gy? R4 
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current volume ; . ; : 
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current volume tUCB 
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DCB 


DCBFDAD 
as 
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Diagram 2.7. End-of-Volume, Direct-Access 
Output 


This function is entered from EOV initialization when an 
output data set on a direct-access device was being 
processed and an EOV condition was raised, either as the 
result of an EOV macro or an FEOV macro. The EOV 
condition means that the space allocation was not 
sufficient to hold the data set on the current volume. This 
function first tries to get space allocated to the data set on 
the current volume, and if that is not successful, gets 
space on a new volume. When the EOV condition results 
from an FEOV macro, space will be obtained on a new 
volume if a new volume is specified. 


IFG0554N 


1 Steps la and Ib are executed only when an FEOV 
macro is issued or when a program using the EXCP 
access technique issues an EOV macro. 


la Writes a file mark to delimit the data set on the last 
track of the data set, unless it won't fit, in which case, 
it is written on the next track. If there is no next track 
on the volume, the file mark is written on the first 
track of the next extent of the data set, unless the 
current extent is the last, in which case, no file mark is 
written. [EDO00500] 


1b Reads the format-! DSCB into the O/C/EOV main 
work area. [EDO01700] 


For data sets, copies the format-! DSCB from the 
scheduler work area (SWA) to the O/C/EOV main 
work area. [EDO01600] 


Converts the CCHHR of the last track to a TTR and 
puts it in the DSCLSTAR field of the format-! DSCB. 
Puts the number of bytes remaining on the last track 
of the extent in DSCTRBAL. Turns off the 
last-volume indicator (DSCDSIND). [EDO01800] 


Writes the updated DSCB back to the VTOC. For VIO 
data sets, copies the DSCB back to the SWA. 
{[EDO01950] 


IFG0554P 


2 This routine is entered from EOV initialization when 
an EOV macro is issued. This routine calls the 
DADSM Extend routine to get additional space, equal 
to the secondary quantity (JFCBSQTY), on the 
current volume. When control is passed to the 
DADSM Extend routine, register 13 is set to 1 to 


C 


indicate that space is to be acquired on the current 
volume. [EDO02900] 


When the DADSM Extend routine return to this 
routine, having acquired new space on the current 
volume, this routine reads the updated format-1 DSCB 
(and the format-3 DSCB if there is one). [EDO04000) 


3 If the data set disposition (JFCBIND2) indicates a 
disposition of OLD or MOD, or if a new volume is 
required because the current volume doesn't have 
enough space available for the secondary allocation or 
if the volume already contains 16 extents of the data 
set, this routine sets up to complete processing on the 
current volume (write labels, write SMF data set 
activity records, etc.) before getting additional space 
on a new volume. [EDO03515] 


IFG0554Z 


3a Reads the format-! DSCB from the VTOC of the 
current volume, updates the DSCLSTAR and 
DSCTRBAL fields and resets the last-volume 
indicator (DSCDSIND), then writes the updated 
DSCB back to the VTOC. [EDO14550] 


IFG0555B 


3b Gets a buffer for building user labels, makes sure that 
a user label track has been allocated, copies the DCB 
from protected storage to the user’s storage, and gives 
control to the user’s label building routine. When 
control is returned, this routine writes the label or 
discontinues label processing as specified by the user 
via register 15. []FG0O555B] 


IFG0553B (alias for IFG0202H) 


If an SMF type 15 record is required (data set activity 
is being monitored by SMF), this routine builds the 
JFCB segment and device-independent segment of the 
SMF record. [CCM02100] 


IFG02021 


Completes DCB/DEB segment, builds UCB segment, 
and issues the SMFWTM macro to write the record to 
the SMF data set. [CCM02520] 


IFG0554P 


3c This routine calls the volume mount/verification 
routines to mount and verify or merely verify that a 
new volume is available. [EDO03550] 


eS 


IFGO554A 


This routine uses the volume sequence in the 
DXVOLSEQ field of the O/C/EOV main work area 
in conjunction with the volume serial numbers in the 
JFCB and JFCB extension to determine the volume 
serial number of the next volume to be processed (the 
new volume), referred to in the source code as volume 
n. If another volume is to be processed after the new 
volume, this routine determines its serial number also 
so that a look-ahead mount message can be issued to 
the operator to mount this volume. [VUS03300] 


Finds a unit allocated to this task that is available for 
use with this volume (note that the volume may 
already be mounted). [VUS05120] 


IFG0554J (alias for IFG0O194J) 


If the volume is not mounted, this routine writes a 
message to the operator requesting that he mount the 
volume. If the request is to mount a MSS volume, the 
WTO message is bypassed. The ICBMNTDE 
TYPE=MNT macro is issued to mount this volume 
without operator intervention. [WTO02000] 


IFG0554C (alias for IFG0194C) 


Reads the volume label (cylinder 0, track 0, record 3) 
into the O/C/EOV main work area. [DAMV0100] 


{ If the volume mounted is not the one requested and if 
the volume is a MSS volume and not a scratch request, 
it is considered a hardware error and results in a 413 
ABEND for OPEN, or a 737 ABEND for EOV. 
[DAMV01 12] 


Moves address of the VTOC from the volume label to 
the UCB. [DAMV0120] 


Verifies that the correct volume is mounted. 
[DAMV0200] 


If the MSS virtual volume is on a JES3-managed unit, 
then an SSOB parameter list is built and the 
IEFSSREQ macro is issued to set up this volume for 
JES3 control. 


If the DSCB is not found, installation exit module 
IFGOEXOA is executed and subsequently returns one 
of the following codes: 


0 continue 
4 Retry read of DSCB (once only) 
8 ABEND 
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IFG0554T 


This routine is entered if a new volume needs to be 
mounted but no demountable unit can be found. If the 
DCB is not BSAM or QSAM with a B37 ABEND exit 
active (X‘08’ in high order byte of the DCB exit list), a 


B37 ABEND is issued. 


If the DEB has 16 extents (which indicates that it is 
not possible to attempt to extend the data set on the 
current volume), the format-! DSCB is read and the 
DSCLSTAR and DSCTRBAL fields are updated, the 
last-volume bit (DSCDSIND) is set, and the DSCB is 
rewritten; all the BSAM/QSAM IOBs are updated to 
no longer indicate an end-of-volume condition. The 
IOBs are set to indicate an I/O error so that this B37 
condition will not be detected again. If Close called 
EOV or if there is no SYNAD address specified, an 
001 ABEND is issued. Otherwise EOV exits to the 
caller, which should result in a subsequent EOV call 
when the SYNAD exit will be taken. 


If the DEB has less than 16 extents, the user's B37 
ABEND exit is taken. A return code of 0, passed by 
the user's B37 ABEND exit routine, means that some 
action was taken by the user that should allow that 
data set to be extended on the current volume; 
IFGOS554P is given control. If a return code of 2 is 
passed, the format-! DSCB is updated and a B37 
ABEND is issued. If a return code of |! is passed, the 
DSCLSTAR and DSCTRBAL fields of the format-| 
DSCB are updated, the last volume bit is set in 
DSCDSIND, and the DSCB is written to the VTOC; 
then the IOBs are updated to indicate that a 
permanent I/O error has been encountered. 
[1FG0554T] 


IFG0554P 


3d When the new volume has been mounted and 
verified, and space has not been allocated on the 
new volume, this routine passes control to the 
DADSM Extend routine to get additional space on 
the new volume. Register 13 is set to 4 to indicate 
to the DADSM Extend routine that the space is to 
be acquired on a new volume. [EDO02900] 


IFGO554C (alias for IEFO194C) 


If the MSS virtual volume is on a JES3-managed 

unit, then an SSOB parameter list is built and the 
IEFSSREQ macro is issued to set up this volume 

for JES3 control. 


a 


IFGO0555H 
4 This routine is entered, after the DSCB has been read 


on the new volume, or after additional space has been 
acquired, to free the old DEB and construct a new one 
that contains the new extents. The old DEB is 
removed from the TCB-DEB chain and the new DEB 
added. Its address is added to the job step’s DEB table. 
[EDO22700] 


Updates the DCBFDAD to the beginning of the new 
extent. [EDO23300] 


If any of the new DEB extents exist on MSS virtual 
volumes, the ICBACREL TYPE=ACQ macro is 
issued to acquire the space on a virtual volume. 
[EDO24120] 


If the EXCP access technique, this routine frees the 
work areas obtained in previous processing and 
returns to the routine that issued the EOV macro. 
[EDO24900] 


IFG0555J 


When a space has been acquired on a new volume, this 
routine writes user header labels (UHL) on the 
user-label track, if they are required. A buffer is 
acquired in which the user label can be constructed, 
the DCB in protected storage is copied to the user's 
storage and control is passed to the user’s label 
building routine. When control is returned, this 
routine writes the UHL or terminates processing, 
based on the code passed in register 15. [[FG0555J] 


IFGOS5S51L 


6 This routine is entered when the sequential access 


methods (BSAM or QSAM) are being used. If 
CHKPT=EOV is specified, control is passed to 
IFG0558X, which takes a checkpoint and then returns. 
If the user’s DCB exit list contains an active EOV exit 
routine address, the EOV exit routine is given control. 
[EIN21400] 


Reschedules any I/O requests that were purged during 
previous EOV processing; primes buffers, if required, 
then returns to the issuer of the EOV or FEOV macro. 
[EIN02290] 
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Diagram 3.0. Close Overview 
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Cd 
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dependent processing. 
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Diagram 3.1. Close Initialization 
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Diagram 3.1. Close Initialization 


The Close initialization function is entered from the SVC 
second-level interrupt handler when SVC 20 is issued. 
Close initialization is also entered from EOV at Step 3, 
below, when EOD is reached on a data set being 
concatenated with another data set with different (unlike) 
characteristics. 


IGC00020—CLOSE (SVC 20) 


1 This routine gets a WTG table and associated work 
areas for this close request. See ‘‘Data Area Layouts” 
in the “Data Areas” section for an example of the 
manner in which work areas are obtained and chained 
during close processing. [IGC00020] 


2 Checks the open, busy, and lock bits in the DCB/ACB 
OFLGS field to see if the DCB/ACB can be closed 
(lock and open bits on, busy bit off). An O/C/EOV 
main work area is needed for each ACB/DCB that 
can be closed. [CINOO10A] 


Gets virtual storage for an O/C/EOV main work area 
for each ACB/DCB in the Close parameter list that 
passes the previous test. The address of each 
O/C/EOV work area is stored in the WTG table, the 
work area is initialized, and the DCB/ACB is copied 
into protected storage (the IECRES INIT macro is 
used to copy the DCB/ACB and, at the same time, 
turn on the busy bit in DCBOFLGS). [CINOO105] 


"If the open, busy, and lock bits are on and the access 
method is not VSAM or BTAM, this routine verifies 
that a DEB on the TCB-DEB chain points to the right 
DCB or ACB. [CIN00610] 


3 This routine is entered from EOV (1) when volumes 
with unlike attributes are being concatenated for 
processing; and (2) when the user has specified in his 
DCB ABEND exit routine that he wants to ignore an 
error associated with EOV processing of a DCB. 


This routine is entered to restore the DCB to closed 
status, before reopening the DCB to reflect the unlike 
attributes of the next data set to be processed in the 
concatenation. (JGC01020] 


Builds a DEB/DCB in the O/C/EOV main work area. 
These control blocks will be used in subsequent I/O 
operations (reading DSCBs and labels, writing 
tapemarks, etc.). [CINO0860] 


For data sets being processed using the EXCP access 
technique (MACRF=E) and for DCBs associated with 
a task being abnormally terminated , this routine 
purges any outstanding requests for input or output; 


C 


the I/O halt option of the PURGE macro is specified 
(see OS/VS2 System Programming Library: Data 
Management for a description of the PURGE macro). 
[CIN00900] 


IFG0200V 


4 Copies the JFCB for the data set from the scheduler 
work area (SWA) to the O/C/EOV main work area. 
For catalog requests, control is passed to IFGO200N to 
move the JFCB (see OS/VS2 Catalog Management 
Logic). [(CINO2300] 


5 This routine checks to see if the system management 
facility (SMF) is being used to write type-14 and -15 
records to the SMF data set; if so, sets an indicator 
that causes the appropriate record to be written 
whenever necessary in subsequent processing. 
[CINO2550] 


6 This routine checks for an ACB representing a VTAM 
data set and when one is encountered, transfers 
control to the VTAM close function, whose entry 
point is IFGO200U (see OS/VS2 VTAM Logic). For 
ACBs representing VSAM data sets, control is 
transferred to the VSAM close function (entry point is 
IFGO200T), and for DCBs associated with ISAM 
programs that are to process VSAM data sets, control 
is passed to IFG0200S, the VSAM-ISAM compatibility 
interface. [CIN02600] 


7 For direct-access data sets with standard user labels, 
this routine reads the format-1 DSCB into the 
O/C/EOV main work area. [CIN03600] 


For VIO data sets, instead of reading the format-1 
DSCB from a VTOC, this routine copies the format-] 
DSCB maintained in the scheduler work area (SWA) 
to the O/C/EOV main work area. [CIN03900] 


IFGO0200W 


8 The access method executor routine that is to receive 
control is determined. The access method executor to 
receive control for data sets on unit record and tape 
devices is determined based on (1) the data set 
organization, whether it is a TSO task closing the data 
set, or whether the task is being abnormally 
terminated; and (2) the type of device the data set 
resides on. An access method executor ID is entered in 
the WTG table for each entry in the Close parameter 
list. module names for these executors are shown as 
exits in the module flowchart for IFGO2Z00W (see 
Chart 3.1). No executors are required to close dummy 


data sets or data sets being processed using the EXCP 
access technique. [CIN04400] » 


For data sets on direct access devices, this routine 
determines the access method executor that should 
receive control. This is done for each entry in the 
Close parameter list. The executor to receive control 
depends on data set organization (TCAM, SAM, 
ISAM, BDAM, etc.) [CIN05 100] 


For SYSIN and SYSOUT data sets, this routine 
determines whether the request is represented by an 
ACB or a DCB. DCBs are processed by passing 
control to a routine that translates the DCB request to 
an ACB request and issues a second CLOSE macro 
against the ACB it constructed during Open 
processing, causing the Close routines to be reentered 
to close the ACB (see OS/VS2 SAM Logic fora 
description of the SYSIN-SYSOUT DCB executor, 
1GG0201W). [CIN05410] 


When an entry in the WTG table has been specified 
for each member of the Close parameter list, this 
routine gives control to the first access method 
executor identified in the first WTG table entry. A 
complete list of the Close access method executors 
that can reccive control is shown in Chart 3.1. 
[CINO5600] 


IFG0200Y (alias IGGO200F and IGGO0200G) 


10 When control is returned from the access method 


close executors, this routine determines which Close 
function is to receive control, based primarily on the 
type of device on which the data set resides. Other 
considerations include whether the data set was 
opened for input or output and the type of labels used 
for direct-access and tape data sets. When the next 
Close function has been determined, a module ID is 
again put in the WTG table. This is done for each 
entry in the parameter list, which concludes the Close 
initialization function. The next function to receive 
control can be Close Tape (Diagram 2.2), Close DA 
(Diagram 2.3), or Close Final (Diagram 2.4). 
[CIN06100] 
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Diagram 3.2. Close Tape 
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Diagram 3.2. Close Tape 


This function is entered from the Close initialization 
function when a data set on tape is being closed. All label 
types are processed in this function, with exits to the 
user's label routine exits. 


IFG0200Z 


1 


This routine writes a tapemark and EOF! and EOF2 
labels for output data sets. Information for the labels is 
gathered from the JFCB, TIOT, DCB, and UCB. If 
AL ts specified, the labels are translated to ASCII 
before they are written. Additional information on 
standard and user labels can be found in OS/VS Tape 
Labels. (CTA00200] 


IFGO202A 
2 For both input (label processing deferred from EOV to 


EOF) and output data sets on tape, this routine 
processes user labels (SUL and AUL) if (1) the 
JFCBLTYP ficld indicates their presence and (2) the 
users DCB exit list contains an active entry for user 
labels. If an output data set is being closed, a cleared 
buffer is passed to the user's program, in which he can 
construct a user label. For deferred label processing, 
the user label is read into the buffer before it is passed 
to the user's program. [CTA03600] 


Before passing control to the user’s label routine, this 
routine copies the DCB from protected storage into 
the user's storage. [CTA06100] 


When control is returned from the user's label 
processing routine, the DCBOFLGS field is updated 
from the user's storage to protected storage. Then the 
coatents of register 15 are examined to determine 
whether $4e uscr wants lo continue to process labels. 
[(CTAQ3RC 


IFG0202B 


3 This routine ts entered when the JFCB for a data set 


on tape indicates the presence of nonstandard labels 
(NSL). 


If NSL processing was deferred from end-of-data until 
the data set is closed this routine transfers control to 
NSLETRLI, the user installation’s EOV trailer label 
routine, so that he can process the labels and position 
(o another data set on the tape or dispose of the 
volume. The DCB in protected storage is copied to the 
user's storage before control is passed. [CCM00500] 


Cf . 


This routine transfers control to NSLCTRLO so the 
user can write nonstandard trailer labels on output 
data sets, and position the tape or dispose of the 
volume. Note: no positioning is done by the system 
control program for NSL tapes. [CCM00700] 


For NSL data sets, error statistics by volume (ESV) 
are written. [CCM01200] 


IFG0202H 


4 


If a System Management Facility (SMF) type 14 or 15 
record is required (data set activity is being monitored 
by SMF), this routine: 


Builds JFCB and device independent DCB/DEB 
segment of the SMF record. [CCM02100] 


Completes DCB/DEB segment and builds UCB 
segment. [CCM05050] 


Issues SMFWTM macro instruction to write the record 
to the SMF data set. [CCM04700] 


IFG0202F 


5a This routine positions tape volumes according to the 


close option specified by the user and updates the 
UCB accordingly. For unlabeled tape (NL specified in 
the DD statement), tape marks are written after the 
data. For standard labeled tapes, tapemarks are 
written after the trailer labels. If REREAD is specified 
and the data set is the first one on the volume, the tape 
is rewound. If the data set is not the first one on the 
volume, four backspace files (BSF) and one forward 
space file (FSF) are issued to position to the beginning 
of a standard labeled tape; if the tape is not labeled, 
only two BSFs are required. [CTA06850] 


5b If none of the Close options (LEAVE, REREAD, 


REWIND, or DISP) are specified, DISP is assumed, 
and the TIOESTTA field (byte 2 of the TIOT DD 
entry for the data set) is examined to determine the 
disposition action required. [CTA08900] 


If KEEP is indicated for a reserved data set or if 
REWIND is indicated, the tape is rewound and the 
rewind bit (bit 3 in the UCBWGT field ) is set to 
indicate to the scheduler component that no rewind ts 
necessary. If the tape is to be unloaded, a demount 
message will be issued. [(CTA09100] 
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Diagram 3.3. Close Direct-Access 


DCB 
Close initialization 


DCBFDAD 
ae aS 1. bor output data sets, updates the F1 DSCB with 


address of last record written and unused space on 2 a 


DCBTRBAL last track, then writes updated Fl DSCB. 


From user’s label routine User’s label routine 


2. Reads and writes user labels, as required. 


F1 DSCB 


3. Writes filemark for output data sets. R4 


oe 
DADSM partial work area 


RI5 
7 release 


4. If requester wants unused space released, calls 
DADSM partial release. 


See OS/VS Data Management 
Services Guide tor codes 
returned by user label routines 


5. Writes SMF records as required. 


From DADSM 
partial release 
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Diagram 3.3. Close Direct Access 


This function is entered from the Close initialization 
function when a data set on a direct-access device is being 
closed. Steps 1, 3, and 4 are performed only for output 
data sets, while steps 2 and 5 are always performed, 
whether an input or output data set is being closed. 


IFGO208Y (alias IGGOZ00F and IGGO200G) 


1 This routine is entered to close output data sets on a 
direct-access device. If the format-1 DSCB has not yet 
been modified during Close processing, it is read in 
again. The actual device address in the DCBFDAD 
field is converted to TTR format and put in the 
format-! DSCB. The track balance field 
(DSCTRBAL), the last-track-written field 
(DSCLSTAR), and the last-volume indicator are 
updated. For partitioned data sets, the directory count 
(DSCBCDBL) is also updated. This routine then 
determines the next module ID and puts the ID in the 
WTG table entry. [CIN07700] 


IFGO201R 


This routine writes the updated format-1 DSCB to the 
VTOC; if the user has requested that the unused 
portion of an output data set be released, the updated 
format-! DSCB will be written by the DADSM Partial 
Release routine (see step 4, below). [CDA00215] 


For Y]Q data sets, this routine copies the format-| 
DSCB from the O/C/EOV main work area back to 
the scheduler work area (SWA). [CDA0021 5] 


Only the first volume of multivolume data sets contain 
user labels. Therefore, if the current volume of the 
data set is not the first volume, this routine must find 
the first volume and read in the format-1 DSCB from 
that volume. If the first volume is not mounted, no 
user labels will be written. [CDA01300] 


IFG0202C 


2 This routine is entered if user labels are required fora 
data set opened for input or update. Trailer labels are 
read and passed to the user’s label processing routine 
which is pointed to by the exit list in the DCB. If 
updating is necessary, this routine writes the user's 
updated labels when control is returned from the user's 
label routine. [CDA02500] 


a 


IFG0202D 


This routine is entered if user labels are required for 
data sets opened for output. Control is passed to the 
user's label routine to format the labels. When control 
ts returned, the labels are written by this routine on 
the user-label track associated with the data set 
{[CDA05200] 


IFG0202E 


3 This routine is entered to write an end-of-file mark to 
mark the end of a physical-sequential, output data set. 
If no space remains in the last extent allocated to the 
data set, no file mark is written. [CDA06600] 


4 If unused space ts to be released from an output data 
set before the data set is closed, this routine transfers 
control to the DADSM Partial Release routine, 
IGGO20P1 (see OS/VS2 DADSM Logic). When 
control is returned from the DADSM Partial Release 
routine, a check is made for errors encountered during 
release processing. [CDA07840] 


1FG0202H 


§ If an SMF type-14 or -15 record is required (data set 
activity is being monitored by SMF), this routine 
builds JFCB and device independent DCB/DEB 
segment of the SMF record. [CCM02100] 


IFGO02021 
Completes DCB/DEB segment. [CCM02520} 
Builds UCB segment. [CCM02770] 
Builds ISAM extension. [CCM03650] 


Issues the SMFWTM macro to write the record to the 
SMF data set. [CCM05300] 
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Diagram 3.4. Close Final 


Close 
Initialization 


eI ac 


DCB merge table 


DCB field length table 


DEB extension 


DEBXDCBM 


From VSAM, V 


close 


TAM 


. Deletes access method and I/O appendage routines 


. Restores DCB to the way it was before it was opened 


. Removes DEB from DEB chain 


. Subtracts one from data management count in DSAB 


and UCB and frees DEB 


. When entered from EOV (concatenation of data sets BE a ots 
. 2 et ; Initialization 
with unlike characteristics in process), calls Open to 
reopen DCB B&B 


R/TM (ABEND) 


. If an abnormal termination condition has been 


delayed or ignored, it is issued now 


. Frees all work areas gotten for this Close request Return 
to caller 


DCB 


DSAB 


UCB 
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Diagram 3.4. Close Final 


This function is entered at the conclusion of the device 
dependent processing when data sets on tape and 
direct-access volumes are being closed. It is also entered 
from the Close initialization function when SYSIN, 
SYSOUT, and dummy data sets are being closed. The 
VTAM and VSAM Close components also return to this 
function at step 7. 


IFG0202J 


2 


Frees the error recovery procedure (ERP) work areas 
and user totalling save area. [CFN00500] 


Using the list of access method processing routines 
and their appendages that appears in the DEBSUBID 
field of the DEB, this routine deletes the routines to 
indicate that one or more of the tasks associated with 
each DCB are no longer using these routines. 
[CFNO1000] 


This routine restores some of the fields of the DCB to 
the setting they had before the JECB was merged into 
the DCB during Open processing. The OPTCD, 
BFTEK, BFALN (HIJARC bits 0 and 5 are not 
restored), DEVT and DVTBL fields for direct-access 
DCBs are restored. For TCAM DCBs with 
DSORG=TX or TQ, the BUFMAX, PC], RESERVE, 
BUFSIZE, and THRESH fields are restored to 0, if 
they had been merged from the JFCB during Open 
processing. [CFN0O1200] 


IFG0202K 


3 


Removes the DEB for this data set from the TCB-DEB 
chain for the task. 


This routine searches the DSAB(s) associated with the 
data set and decrements the count of the number of 
DCBs or ACBs currently open to the data set. 
[CFN06172] 


The data management count (UCBDMCT field) is the 
count of DCBs open to a data set on a particular unit. 
This count is decremented by one in each UCB that 
represents a unit with a volume of the data set 
mounted. [CFNO1300] 


Turns off the busy bit and open bit (unless errors have 
occurred while processing an ACB) in the 
DCBOFLGS filed. [CFN06610] 


C 


IFGO202L 


§ Checks for concatenation of data sets with unlike 


attributes; this condition indicates that EOV has 
requested this close operation. This routine transfers 
control to Open to reopen the DCB with the 
appropriate attributes. An O/C/EOV main work area 
is passed to Open. [CFN07900] 


If the user has specified in his DCB ABEND exit 
routine that an abnormal termination condition that 
arose during Close processing be delayed or ignored, 
the ABEND is issued now. [CFN0O8080] 


Sets the return code in register 15 for return to the 
routine that issued the CLOSE macro. [CFN07600] 


If the user specified that his data set be freed at the 
time it is closed (rather than at task termination), this 
routine calls the dynamic allocation component so that 
the data set, volume, and unit can be deallocated. 
They will be deallocated if the data set, volume, or 
unit is not otherwise in use. [CFN08015] 


Issues the IECRES FREE macro, which frees the work 
areas obtained to process the request. Returns control 
to the caller. [CFN08100] 
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SVC 23 


DCB, /ACB, 


VSAM 
TCLOSE 


CLOSE TYPE=T 


Diagram 
Number 


4.1 


4.2 


4.3 


4.1 


Gets work areas, moves JFCB, determines 
device dependent processing. 


Tape data sets: reads and writes labels, 
positions tape. 


Direct-access data sets: reads and writes 
labels, updates Fl DSCB, “‘positions” 
volume for subsequent processing. 


Updates DCB and DEB, releases work areas. 


VSAM TCLOSE 


Returns 
to caller 


DEBOFLGS 
a 
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Diagram 4.1. TCLOSE Initialization and Final Processing 


Rl 


‘1 CLOSE parameter list O/C/EOV main work area 


eee ven ee es 
a . Verifies that an ACB or DCB is eligible for 
[ temporary closing. 
a, Channel program 
| fA) 
| . Gets work areas and builds control blocks. 'O= 
DCB, /ACB, | | | 
— 3. Moves JFCB. 
=— a VSAM TCLOSE 
y) 4. VSAM ACB? - yes 


TCLOSE 
tape 


See eee) 5. Performs device-dependent processing. 


JFCB 

ma Ae tr faa) TeLose pcs 
TCLOSE DA direct-access | ne BOFLGS 
ee 6. Updates DCB and DEB. fo. 

| rr From VSAM 
TCLOSE 
7. Releases WIG table and work areas. Returns 

to caller DEB 

DC BOFLGS 


“= 


16 UoKes3sdgC jo poulaw 


Diagram 4.1. TCLOSE Initialization 


This function is entered from the SVC second-level 
interrupt handler when SVC 23 is issued. SVC 23 results 
from the expansion of a CLOSE macro instruction when 
1 YPE=T is coded. TYPE=T indicates that a data set 
being processed using BSAM or VSAM is to retain its 
open status while its labels are being processed, and it is 
to be repositioned for the next processing phase. 
Temporary close processing is not supported for SYSIN 
or SYSOUT data sets or for any access method except 
BSAM or VSAM. This function checks for ACBs 
representing VSAM data sets and transfers control to the 
VSAM TCLOSE component to process these ACBs (see 
OS/VS2 Virtual Storage Access Method (VSAM) Logic). 
The VSAM TCLOSE component returns to the TCLOSE 
final function (IFG0232Z), to ensure parallel processing 
of the DCBs included in a multiple TCLOSE that consists 
of both VSAM ACBs and BSAM DCBs. 


IGC0002C—CLOSE, TYPE=T (SVC 23) 


1 This routine, the first load of TCLOSE, gets virtual 
storage for a WTG table and associated work areas. 
An entry of the WTG table is used for each DCB and 
ACB in the parameter list. See ““Data Area Layouts” 
for a description of the work areas obtained and how 
the work areas are chained. [[GC0002C] 


For each parameter list entry, this routine checks the 
lock and open bits of the OFLGS field of the DCB or 
ACB. If both bits are set to 1, it is assumed that the 
DCB/ACB is to be temporarily closed and processing 
is continued. If no DCB/ACB in the parameter list has 
both bits on, control is immediately returned to the 
caller. [TCM00500] 


2 When all the tests in step 1 are successful, this routine 
gets an O/C/EOV main work area for each valid 
parameter list entry and copies the user's DCB into 
protected storage. [TCM00575] 


If a checkpoint data set is being temporarily closed, 
frees the copy of the user’s DCB and copies the 
protected checkpoint DCB into protected storage. 
{TCB00580] 


Initializes the work area by building a DEB, DCB, 
JOB, and channel program in it. These control blocks 
are needed to read DSCBs, process labels, and to 
position data sets. [TCM06500] 


Issues a PURGE macro instruction specifying the 
quiesce I/O option to purge outstanding I/O requests. 
(See OS/VS2 System Programming Library: Data 
Management for a description of the use of the 


C 


PURGE macro.) The purge is not necessary for 
VSAM data sets. [TCM07000] 


3 This routine moves the JFCB associated with each 
DCB from the scheduler work area (SWA) to the 
O/C/EOV main work area for that DCB. It is not 
necessary to move the JFCB for VSAM ACBs. 
[TCM07600] 


4 If the data set being temporarily closed isa VSAM 
data set, this step sets the WITGMODMNM entry for 
this ACB to IFG0231T to transfer control to VSAM 
TCLOSE (see OS/VS2 Virtual Storage Access Method 
(VSAM) Logic). [TCM09500] 


5 Checks the UCBTBYT3 field to determine which 
device-dependent TCLOSE function to transfer 
control to, TCLOSE tape or TCLOSE direct-access. 
[TCM09570] ~ 


IFG0232Z 


6 This routine is entered at conclusion of 
device-dependent and VSAM TCLOSE processing. It 
is verified that each DCB/ACB represented in the 
parameter list has been processed by each of the 
preceding TCLOSE functions and is now ready for 
final processing. [TCM50000] 


Determines for which parameter list entries abnormal 
termination has been deferred by the user’s DCB 
ABEND exit routine, if any. [TCM52500] 


If processing was terminated unsuccessfully on a DCB 
or ACB, only the busy bit (OBUSY field) is reset in the 
O/C/EOV main work area. If TCLOSE processing of 
an ACB/DCB was successful, the OWRIT, ORDBK 
and OEOF bits are reset to zero in the main work 
area. [TCM53600] 


Copies the DCB in protected storage into the user's 
storage. [TCM53800] 


7 When all DCBs represented in the TCLOSE 
parameter list have been processed, this routine frees 
the WTG table and all work areas associated with the 
request and returns to the caller. [TCM54500] 
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Diagram 4.2. TCLOSE Tape 


JFCB, DCB, DEB, TIOT 


R15 


[ + oe ee 3a Reads labels if opened for input. 


See OS/VS Data Management 
Services Guide for codes 
returned by user label routines 


TCLOSE NSLETRLI or 
Initialization NSLCTRLO 


1. For NSL tapes, gives control to the user’s NSL routine 


to process labels and position the tape. TCLOSE 


final 


From NSLETRLI 
NSLCTRLO 


2. For SL (AL) tapes opened for output, writes 
tapemarks, EOF 1 and EQF2 labels. 


User-label routine interface 


3. For SUL(AUL) tapes: 


from user’s 
label routine 


User’s label routine 


3b Writes labels if opened for output. 


t Status 
information 


4. Writes final tapemarks on output tapes. 80-byte label buffer 


5. Positions tape as specified by user: REREAD or TCLOSE 
LEAVE. final 
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Diagram 4.2. TCLOSE Tape 


This function is entered from the TCLOSE intialization 
routine when a data set on tape is being temporarily 
closed. The processing performed in this function 
depends on the type of label on the tape and on whether 
the data set was opened for input or output. 


IFG0202B 


1 Before transferring control to one of the users NSL 
routines, this routine copies the DCB in protected 
storage to the user’s storage. [CCM00250] 


This routine transfers control to the user's NSL Close 


routine, NSLCTRLO, so that the user can process 
NSL output labels and position the tape to continue 
processing. [CCM00700] 


When NSL processing was deferred al end-of-volume, 


to be performed at end-of-data, this routine passes 


control to the user's EOV NSL routine, NSLETRLI, so 


that the user can process the labels and position the 
volume. [CCM00500}] 


Note: No positioning is done for NSL tapes by the 
system control program. The user’s NSL routine is 
responsible for volume positioning during Close and 
TCLOSE processing. When control is returned to 
TCLGSE, only the TCLOSE final function is 
performed. 


IFG0232G 


2 This routine processes standard-labeled tapes for 
output data sets. One tapemark is written to delimit the 


data. 


This routine can also be reentered after FEOV 
processing (see next paragraph). [TCT00400] 


When end-of-tape was sensed when a tapemark was 


written, this routine makes a test to determine whether 
LEAVE was specified as the positioning option; if so, 


the tape is backspaced past the tape mark and an 
FEOV macro is issued so that trailer labels will be 
written, a new volume mounted, and HDR! and 


HDR2 labels written. When control is returned to this 
routine from EOV, the user's DCB is again copied into 


protected storage. [TCT00600] 
Builds and writes an EOF1 label following the 


tapemark (data delimiter) using information from the 


DCB, DEB, UCB, and JFCB. [TCT03000] 


Builds an EOF2 label using information from the 
JFCB and UCB. [TCT03200] 


Cc 


IFG0232M 


Completes EOF2 label using information from the 
TIOT, JFCB, DSAB, and UCB and writes it after the 
EOFI label. [TCT06200] 


This rouline is entered when a tape with standard user 
labels (SUL or AUL) is encountered. Obtains storage 
for a user-label work area. [TCT07200] 


If the data set was opened for output, this function 
passes the user's program a buffer in which the user 
builds his label. The user returns control to this 
routine to write the label. Register 15 is used by the 
user's label routine to specify whether label processing 
is to continue and what the next action is to be. 
[TCT08200] 


If the data set was opened for input, this routine reads 
the label into the user's label buffer and passes control 
to the user’s label routine to verify the label. 
[TCT09200] 


Before passing control to the user's label routine, the 
DCB in protected storage is copied into the user's 
storage. [TCT 10800] 


{FG0232S 


This routine is entered after user-label processing of 
AUL and SUL tapes and after TCLOSE initialization 
for NL, SL, and AL tapes. [TCT 14200] 


For output data sets, the first of two tapemarks is 
written following either the data (NL tape) or the data 
set labels (SL, AL, SUL, or AUL tape). [TCT 14400] 


Writes the second tapemark. [TCT 14800] 


For NL tape data sets, a test is made to determine 
whether end-of-tape was sensed and, if so, whether 
LEAVE was specified; if both conditions were met, 
the tape is backspaced past the tapemark and an 
FEOV macro instruction is issued to pass control to 
EOV to mount a new volume. When the new volume 
has been mounted, normal TCLOSE processing is 
resumed. [TCT 14600] 


Writes the second tapemark. [TCT 14800] 


This routine positions labeled (SL or AL) tape 
according to (1) how the tape was being read (forward 
or backward) ar! (2) the positioning specified in the 
CLOSE ,,.Ty PL=i macro (LEAVE or REREAD). 
[TCT 14000; 


This routine positions unlabeled (NL) tape using the 
same criteria as labeled tape. [TCT 16800] 
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Diagram 4.3. TCLOSE Direct-Access 


O/C/EOV main work area TCLOSE 
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. For output data sets: 


Verifies that data suc is physical sequential and not 
a member of a partitioned data set 


. Reads F! DSCB 


. For input data sets: 


3a “Positions” volume to beginning or end of 
data set as specified by user: LEAVE or REREAD 


3b Updates seek address in [OB (A) 
“ 


4a Updates track balance and last-track-written 


fields in Fl DSCB 
4b Writes updated Fl DSCB. a (ane 
4c For SUL data sets, writes user labels 


as 
+) 


TCLOSE 
final 


4d Writes EOF mark(s) 


4e If REREAD was specified “‘positions’”’ data set to 


be reread f 


O/C/EOV main work area 


Fi DSCB 
DSCTRBAL DSCFDAD 
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~ 
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Diagram 4.3. TCLOSE Direct Access 


This function is entered from TCLOSE initialization 
when a data set on a direct-access device is to be 
temporarily closed. The processing performed by this 
function depends on whether an input or an output data 
set is being temporarily closed. Steps | and 2 below are 
entered for both input and output data sets. Note that 
user labels are not processed for input data sets during 
TCLOSE processing. 


TCLOSE DA processing support is intended for 
sequential data sets, both physical sequential and 
partitioned. However, data sets with other organizations 
are also processed sequentially, namely direct and 
indexed-sequential data sets. Direct and 
indexed-sequential data sets are not delimited with file 
marks, which are needed by TCLOSE to position to the 
end of data; therefore, TCLOSE can only reposition 
direct and indexed-sequential data sets that specify 
repositioning to the beginning of the data set. For 
partitioned data sets, TCLOSE only repositions to the 
beginning (the directory) or the end (following the last 
member) of the data set. No repositioning to individual 
members is done. 


To ensure proper processing, the TCLOSE DA 
routines check the DCB, JFCB, and format-1 DSCB to 
determine data set organization. 


IFG0232D 


1 This routine is entered from TCLOSE initialization 
for both input and output data sets. The DSORG field 
of the DCB is tested for physical sequential (PS) and 
the JFCBIND1 field is tested to make sure that the 
DCB is not open to a member of a partitioned data 
set. If either test fails, TCLOSE processing of this 
DCB is terminated. [TCD00100] 


2 ForVIO data sets, this routine copies the format-! 
DSCB maintained in the scheduler work area (SWA) 
to the O/C/EOV main work area. [TCD001 10] 


This routine reads the format-!1 DSCB into the 
O/C/EOV main work area. [TCD00120] 


3 If LEAVE positioning is to be performed for an input 
data set (indicating that the user wants to be at the end 
of the data set), the data set organization in the 
format-! DSCB is tested for PS or PO. If it is neither, 
processing is terminated for this DCB. [TCD00150] 


3a If the disposition of an input data set is LEAVE, the 
volume is positioned to the end of the data set by 
updating (1) the DCBFDAD field to point to the 


Cc 


end-of-file mark following the data and (2) the track 
balance field (DCBTRBAL) to reflect the number of 
bytes remaining on the track. [TCD00150] 


If the disposition of an input data set is REREAD 
(indicating that the user wants to be positioned to 
the beginning of the data set when he resumes 
processing), the volume is positioned to the 
beginning of the data set by updating (1) the 
DCBFDAD field to point to the beginning of the 
first extent of the data set and (2) the DCBTRBAL 
field to reflect the capacity of a full track. 
[TCD00200] 


3b The full disk address in the IOBSEEK field is updated 
to correspond to the updated DCBFDAD, -.e., to 
point to the beginning of the first extent of the data 
set. [TCD00300] 


4 When a data set opened for output is being 
temporarily closed, the DSORG field in the format-|! 
DSCB is tested for PS; if the DSORG is not PS, 
TCLOSE processing for the DCB is terminated. 
[TCD00800] 


4a This routine updates the track balance field 
(DSCTRBAL), the last-track-written field 
(DSCLSTAR) of the format-1 DSCB for the data set, 
and sets the last-volume indicator (DSCDSIND). 
[TCD00900] 


4b When the format-1 DSCB has been updated, this 
routine writes it back to the VTOC. If a VIO data set 
is being processed, this routine will move the updated 
format-! DSCB back to the scheduler work area 
(SWA). Format-1 DSCBs for VIO data sets are 
maintained in the SWA, rather than in the VTOC of 
the volume on which they reside. [TCD00930] 


IFGO0232J 


4c This routine processes user labels: builds the SUL 
interface, transfers contol to the user’s label routine, 
and when control is returned, writes the user label to 
the user-label extent. [IFG0232J] 


Before transferring control to the user's label routine, 
the DCB in the O/C/EOV main work area is copied 
into the user's storage. [TCD04100] 


IFG0232Z 


4d Writes an end-of-file mark to delimit the data set after 
the last record written for data sets using 
RECFM=FS. Writes end-of-file mark on the next 
track for all data sets. [TCD01700] 


| C 


4e If a disposition of REREAD wag specified, the data set 
is positioned to be reread. This is done by setting the 
DCBFDAD and JOBSEEK fields to the first track of 
the first extent of the data set. [TCD02500] 
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Diagram 5.0. Common Routines—Overview 


IECRES GET* 
FREE 
INIT 


IECRES LOAD* 
SYNCH DCB 
WAIT 
UEXIT 
WRIFCB 


DEBCHK TYPE= ADD* 
DELETE 
VERIFY 
PURGE 


*See Diagrams 5.1, 5.2, and 5.3 
for input (register contents) that 
results from the expansion of 
these macro instructions. 


WTG table 


, ast ean 
Diagram 


Number O/C/EOV main work area DCB/ACB copy 


Returns 
to caller 
DADSM work areas 


ae | 
—_—aa 


5.1 Gets work areas, establishes recovery routine 
address, chains work areas, and copies DCBs. 


Transfers control among O/C/EOV and DADSM 
modules, synchronizes processing of parallel open 
and close requests, overlaps I/O with O/C/EOV 

processing. 


To next 
active module 


DEB table 


Returns 
to caller 


5.3 DEB validation: Maintains the DEB table and 
verifies entries in it. 
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Diagram 5.1. Get and Initialize Work Areas, Free Work Areas 


entered from all 
O/C/EOV and DADSM 
modules via IECRES 


macro 

RO = length of work area required (less size instruction uy 

of extended prefix) prefix 
Ri =0 x 1. Gets DADSM, task close and recovery extended 
is --- routine work areas: prefix 
R4 = J entry indicator la Gets prefix, extended prefix, and work area work 
R14 = the work area ID (4 characters) T area T 
R14 + 4= return address 


lb Initializes work area and establishes recovery 
routine address Return 
to caller 


RO = length of the work area required ; 
R1 = open or close parameter list or to e work are 
DCB/ACB for EOV ne 2: Gets O/C EON WOEk _ 
R2 = subpool number _— 2a Gets WTG table, prefix, and work area; oe See “Data Area 
- = hae pina ae rtd establishes recovery routine address; esol Chaining” for 
= or an pen or ose reques - liwmitial; 7 Return WTG table details on the 
= 1 for an EOV request enqueues TIOT; initializes optional trace a linkage among 
R14 = return address opines. ; the O/C/EOV 
3. Initializes work area and copies DCB work Pele and 
RO = 0-copy the DCB eo 3a Initializes work area and copies user’s DCB control blocks. 
= 4~initialize work area, a DEB exists Ps to protected storage : 
= 8-initialize work area, no DEB exists ” prefix 
oT = s at ped indicator) 3b Copies DCB from protected storage to O/C/EOV 0/C/EOV 
R2 =DcC / copy ’ t to caller, main work area main work area 
R14 = return address user s storage 
4. Gets virtual storage, as specified me 
RO = length of work area required r A & P 
R1 = prefix, if chaining requested, or ” 
= 0, if no chaining requested - a 5. Frees work areas 
R2 = subpool number ” A . ; 
R3 = storage protection key on aT teeniaisingle NorkatrE [prefix 
R4 = 0, 1, 2, 3 entry indicators / F F Sear 
R14 = work area ID (4 characters) 5b. Frees all chained work areas DCB co -| pcBe 
R14 + 4 = return address ye to caller ee ony 
RO = length of area to be freed, if no prefix / 
Rl = area to be freed / 
R2 = subpool, if no prefix / 
R3 = storage protection key 
R4 = 0, 1, 2, or 3 entry indicators 
R14 = return address 
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Diagram 5.1. Get and Initialize Work Areas, Free 
Work Areas 


These subroutines of the O/C/EOV-DADSM service 
routine are entered via the IECRES macro issued by the 
Open, Close, End-of-volume, and DADSM functions; the 
subroutines get, initialize, and free work areas, work area 
prefixes, the WTG table, and buffers; they also enqueue 
and dequeue the TIOT of data sets that may be released 
before the task they are allocated to is terminated; and 
they establish the address of a recovery routine. 


IFGOI9RA 


1 


IECRES GET,PREFIX=FIRST: The DADSM and 
Task Close functions obtain a work area (that includes 
a modified WTG table for use by the DADSM 
routines), a prefix, and an extended prefix using this 
macro. The macro causes two entries to IFGOI9RA, 
the first to get the storage, the second to initialize it 
and to establish the address of the Task Close or 
O/C/EOV-DADSM recovery routine that is to get 
control if an error occurs during processing (also 
called an ESTAE routine). 


First entry: calculates the amount of space based on 
the length of a prefix, extended prefix, and the 
recovery routine parameter list, as well as the amount 
of storage requested. [RESO1750] 


Calls the GETMAIN routines via branch entry and 
sets the area obtained to zeros. Builds the prefix. 
[RESO1830] 


1b Second entry: initializes the write-to-operator (WTO) 


length field used by the module trace routine and saves 
the address of the recovery routine parameter list in 
the work area just obtained. [RESO1760] 


Loads the Task Close recovery routine or the first load 
of the O/C/EOV-DADSM recovery routines and 
issues the ESTAE macro to establish the address that 
is to get control if the Task Close or DADSM routine 
fails. Diagrams 6.2 through 6.4 describe the 
O/C/EOV-DADSM recovery routines. [RES06000] 


IECRES GET,PREFIX=WTG | EOV: this routine is 
called by the O/C/EOV routines. For requests from 
EOV, it gets only one main work area and a 
single-entry WTG table, which is part of the main 
work area, while for requests from Open and Close, a 
variable-length WTG table and more than one work 
area can be obtained. Storage for the other data areas 
associated with the request is also obtained: prefix for 
every work area, extended prefix for each initial work 


2 


3 


C 


area, the recovery routine parameter list, an area for 
copying the O/C/EOV parameter lists into protected 
storage, a work area used by IFGOI9RA, and a trace 
buffer, if needed. These storage areas are illustrated in 
‘Data Area Layouts.” 


Calculates the length of the WTG table and the 
number of work areas needed. [RESO1810] 


Calls the GETMAIN routines via branch entry and 
sets the area obtained to zeros. Builds the prefix. 
[RESO1830] 


When the DD statement contains 
DCB=DIAGNS=TRACE this routine gets a buffer 
into which control blocks and work areas being traced 
are put and loads the routine (IFGOI9TR) that selects 
and moves the control blocks. [RES0O1827] 


Enqueues the TIOT before updating the DSAB, which 
ensures the unit will not be dynamically deallocated 
during O/C/EOV processing. Initializes GTF buffer if 
the optional module trace is active. [RESO1850] 


Loads the O/C/EOV-DADSM recovery routine and 

issues the ESATE macro to establish the address that 
is to get control if an abnormal termination condition 
is encountered. [RES06000] 


IECRES INIT: If work area initialization is required, 
fills in the following fields in the work area: 
DXWDSORG, DSASCBAD, DXTCBADR, 
DXJSCBAD, DXDSABQD, DXTIOTAD, 
DXWMCR. [RES14000] 


If the data set associated with the current DCB/ACB 
is not open (DEB=NO operand used in the macro to 
indicate that no DEB exists), this routine fills in the 
DXDSABAD, DXTIOTAD, DXUCBADR, and 
DXDEBXAD fields. [RES14030] 


If the data set is open (DEB=YES used in IECRES 
macro), this routine fills in the DXDSABAD, 
DXTIOTAD, DXUCBADR, and DXDEBXAD fields, 
using pointers from the DEB. [RES14200] 


Copies the user's DCB to protected storage. 
(DCBCOPY=TOWKAR operand used in IECRES 
macro.) [RES14800] 


3b Copies the DCB in the protected storage to the user’s 


storage. (DCBCOPY=FRWKAR operand used in 
IECRES macro.) [RES14820] 


IECRES GET, PREFIX=YES | NO: entered by 
O/C/EOV and DADSM modules to get storage other 
than the initial O/C/EOV or DADSM work areas or 
the WTG table. Calls GETMAIN routines via branch 


5a 


5b 


¢ 


‘ * 
entry and sets the storage obtained to zeros. If there is 
another prefix to which this work area is to be 
chained, this routine backward and forward chains the 
work area using pointers in the prefixes. [RESO1830] 


IECRES FREE: this routine is used (1) to free one 
work area or (2) to free the first work area obtained 
for an O/C/EOV or DADSM request and all the 
associated work areas (for example, to free a WTG 
table and all the work areas associated with the WTG 
table for an open request). The address of the 
associated work areas to be freed is obtained from the 
work area prefix. 


IECRES FREE: entered by Open, Close, EOV, and 
DADSM this routine unchains the work area being 
released, and rechains the remaining work areas, if 
necessary. Calls the FREEMAIN routines via branch 
entry. [RESO1860] 


IECRES FREE,PREFIX=WTG | EOV| FIRST: 
entered by EOV, DADSM, etc., this routine dequeues 
the TIOT if it was enqueued during the IECRES GET 
routine (step 2a), deletes the recovery routine loaded 
in step Ib, and deletes the ESTAE address. 
[RESO1880] 


Releases the initial work area and all work areas 
chained from the initial work area. [RESO1860] 


91807] AOA/2S01D/U2dO ZSA/SO O01 


Diagram 5.2. Transfer Control, Synchronize Processing, 
Write a JFCB 


From all O/C/EOV and 
DADSM routines via 1. Synchronize processing: set wait bit. 
IECRES macro 


instruction 2. BRANCH = QUEUED 


2a Resets wait bit. 


2b If trace request, gives control to trace routine. 


2c Looks for WTG table entry with calling 
routines ID; if found 39) 


2d Finds module ID with lowest collating sequence muggy. Module with lowest 
in the WTG table and gives it control. Collating sequence I) 


. BRANCH = DIRECT and BRANCH = NO 


3a Locates address of specified module. 
Specified module 


3b Branches to specified module (BRANCH = Return 
DIRECT) or returns to caller (BRANCH = NO). 
. WAIT 


4a Looks for WTG table entry with calling routine’s Reiurn 
ID with no wait pending; if found. to caller 
4b Issues WAIT macro to wait for I/O activity to 
complete. 


RO 4c Finds DCB for which I/O has completed and Niepoal beer era 


passes control. Scheduler work area (SWA) 


. UEXIT: gives control to a user routine. fe User routine 


. WRJFCB: gets work area and issues QMGRIO ef 
macro instruction to copy JFCB to SWA. 


c c C 


collating sequence, moves its name into the 


Diagram 5.2. Transfer Control and Synchronize 
WTGMODNM field and its entry point address to 


area, copies the JFCB to the work area, and issues the 
QMNGRIO macro. [RES10000] 


10] Uonelsdg jo poyysp 


Processing 


These subroutines of IFGO19RA (also called the 
O/C/EOV-DADSM service routine) are called by the 
Open and Close modules to synchronize the parallel 
processing of multiple DCB/ACB Open and Close 
requests and to wait for events to complete. They are also 
called by the EOV and DADSM components to transfer 
control, and by IFGOI9RA itself during work area 
initialization to find the entry point address of a recovery 
routine. 


IFGOISRA 


1 IECRES SYNCHDCB: before transferring control to 
access method executors and user routines (label 
processors, exit routines), the Open and Close 
modules issue this form of the macro instruction to 
bring all of the DCB/ACBs in the parameter list to the 
same stage of processing. This is necessary because 
more than one of the DCB/ACBs may require 
processing by an access method executor or a user 
routine. This routine sets the psuedo-wait or synch bit 
in the DXRESIND field of the O/C/EOV main work 
area. [RES0400] 


2 IECRES LOAD,BRANCH=QUEUED or IECRES 
XCTL: This subroutine is called by O/C/EOV 
routines when control is to be passed to anoed to an 
O/C/EOV module, determined by the collating 
sequence of the module IDs in the WTG table entries. 
Control can also be returned to the calling routine if 
another DCB/ACEB is to be processed by that module. 


2a This routine turns off the wait bit in the DXRESIND 
field. [RESO1900] 


2b If the optional work area trace has been requested 
(DCB=DIAGNS=TRACE or AMP='TRACE'’ was 
coded in the DD statement) and the trace routine has 
been loaded, this routine passes control to the trace 
routine (IFGOI9TR). At each subsequent entry into 
the service routine (IFGOI9RA) in order to transfer 
control to another module, IFGOI9TR is given 
control. IFGOI9TR gathers control blocks and writes 
them using the GTRACE macro. [RES02000] 


2c Examines each module ID inthe WTG table to see if 
the calling routine’s ID is there. If it is, the 
BRANCH=QUEUED request ts treated like a WAIT 
request (step 4a). [RES02300] 


2d If the calling routine’s ID does not appear in the WTG 
table, this routine determines the ID with the lowest 


WTGMODEP, and gives control to that routine via 
step 3. [RES02400] 


3 IECRES LOAD,BRANCH=DIRECT: used when an 
O/C/EOV module must transfer control immediatel: 
to another module (e.g., to the access method 
executors). [RESO2800] 


If the WTGMODEFP field of the WTG table is not 
zero, the address of the module to receive control is 
already known. If WIGMODEP is zero the following 
procedure is used to get the entry-point address of the 
module: 


(1) Calls IEAQCDSR to search the active LPA fora 
copy of the module 


(2) Calls IEAVVMSR to search the pageable LPA 


(3) Issues LOAD macro to search SYS1.LINKLIB 
[RES02840] 


3b When the address of the module to be given control is 
obtained, it is given control using a branch instruction. 
If IECRES LOAD,BRANCHENO is coded, control is 
returned to the calling routine after the address of the 
new module is obtained and moved to the 
WTGMODEFP field. [RESO2810+8] 


3 


4 IECRES WAIT is issued by the Open and Close 
routines to overlap I/O with processing on another 
DCB or ACB in the same request. 


4a Looks for calling module’s ID in the WTG table 
entries. If the ID is found and there is no wait pending, 
the calling routine is given control. [RESO0600] 


4b If a wait is pending for all DCBs (this is determined 
via the list of ECB pointers in the service routine work 
area), a WAIT macro with the LONG option is issued 
to suspend activity for this open request. [RES00800] 


4c When an event is posted complete and control is 
returned following the WAIT macro, this routine 
determines which DCB is again ready to be processed. 
[RES00600] 


5 IECRES UEXIT: issued to (1) branch directly to the 
caller if the caller is executing in a system storage 
protection key (key 0 through 7) or (2) to SYNCH 
(SVC 12) to the caller if the storage protection key is 
greater than 7 (user key). [RESO9000] 


6 IECRES WRJFCB: issued to update a JFCB in the 
scheduler work area (SWA). This routine gets a work 
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Diagram 5.3. DEB Validity Checking 


DEBCHK macro 


(SVC 117) 


DEB Validity Checking 


Register 0 
Access-method Function indicator 
type indicator byte: 
O — Verify 
1 — Add 
> 2 — Delete 
3-— Purge — 
ee ” 
Register | 7 om 
wo 
if TYPE=PURGE, i t DEB or ” 
R1 contains address t DCB 
of DEB; otherwise peu 
RI contains pointer 


address of DCB. Current TCB 


- 
wae 
BJ 
TCBISCB ee 
JSCBDBTB 


Old DEB table 


Valid DEB 


—> 1. Is request valid? NG 


TYPE=PURGE? — yes 


. Does DCB address match address 


passed? — no 


. TYPE=ADD ? — yes 
. Do access-method types match? ~-—no 


. Is DEB address in R1 also in the DEB 


table? — yes 


. TYPE=DELETE ? — yes 


. Is there an empty entry in DEB 


table? — yes 


. Get storage for new DEB table 


. Put address in DEB table and offset 


in DEB Ce f° 


10. Delete address of DEB from DEB table 


11. Successful exit GY 
12. Unsuccessful exit EXS 


New DEB table 


T= Kez 
= © 


LYS SS Bs 


offset of first 
empty entry in 


Gy DEB table 
DEBTBLOF 
poe “A By 
Caller ) a 
R/TM 
(ABEND) or 
caller Register 15 
Sage Return 
O=== | ee 


See 
for settings 
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Diagram 5.3. DEB Validity Checking 


This routine is entered from the first-level interrupt 
handler as a result of the issuance of the DEBCHK 
macro, the expansion for which terminates with an SVC 
117. The DEBCHK macro is issued by programs in 
program state and in supervisor state. See OS/VS2 
System Programming Library: Data Management fora 
description of the use of the DEBCHK macro. 


IFGDEBCK 


2 


4 


At entry to this routine, the TESTAUTH macro is 
issued to determine whether the caller is executing ina 
system storage protection key (key 0-7), in supervisor 
state, or is authorized under APF. If any one of these 
conditions is true, this routine initializes a set of 
authorized BXLE masks that are used to control the 
functions that are entered. Otherwise, this routine 
establishes a set of unauthorized BXLE masks which 
allow only the VERIFY option to be performed. 
[DCK00000] 


If a valid TYPE parameter was specified, a check is 
made to determine whether the caller is authorized to 
use it. The caller must be executing in a system storage 
protection key (key 0 through 7), in supervisor state, 
or be authorized under APF inordertousethe 
TYPE=ADD, DELETE, or PURGE. [DCK00100] 


This routine is not executed if TYPE=PURGE. If 
TYPE is not PURGE, the DEB address is loaded into 
a register from the DCB pointed to by register |. The 
DCB address is loaded from the DEBDCBAD field of 
the DEB. The DCB address passed is compared to the 
DCB address loaded. [DCK001 10] 


If TYPE=ADD 1s specified, the access method check 
is bypassed and control is passed to the add routine 
(step 7). 


The high-order byte of register 0 contains a code that 
identifies the access method of the data set associated 
with the DEB being verified. (See OS/VS2 System 
Programming Library: Data Management for a list of 
the valid codes. [DCK00200] 


If the access method value in the high-order byte of 
input register 0 is not specified (X‘00’), the access 
method check is bypassed and control is passed to the 
verify routine (step 5). If the access method value is 
specified, the value is compared to the access method 
value in the DEBAMTYP field. [DCK00210] 


When a program other than the I/O supervisor 
requests that a DEB address be verified, this routine 
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branches and links to the verify routine of 
IFGDEBVR. [DCK00300] 


The EXCP component of the I/O supervisor branches 
directly to the entry point to verify DEB addresses 
before issuing a start I/O (SIO) for an EXCP request. 
The conditions that will result in an error return are: 
(1) the DEB table does not exist, (2) the DEBTBLOF 
field is less than 1, (3) DEBTBLOF is larger than the 
DEB table, or (4) the DEB pointer and DEB table 
entry are not equal. [[IFGDEBVR] 


Before adding a DEB address to the DEB table, this 
routine verifies that the DEB whose address was 
passed in register | is on the DEB chain of the current 
TCB or, for a VSAM data set, on the DEB chain of 
the jobstep TCB. A test is made to make sure that the 
DEBAMTYP field and the DEBTBLOF field are set to 
zero. The second halfword of the DEB table is tested 
to determine whether there are any empty entries in 
the DEB table. [DCK00400] 


If no DEB table exists for the job step or if there are 
no empty entries in the existing table, space for a new 
table is obtained. (The table cannot exceed 32,760 
bytes.) If the old table was too small, the old table is 
moved to the new table, which is 80 bytes longer, and 
the old table is freed. [DCK00440] 


Enters the DEB address in the DEB table and updates 
the control field, if necessary. [DCK00420] 


10 For TYPE=PURGE or DELETE, deletes DEB 


address from the DEB table and updates control field, 
if necessary. [DCK00500] 


11 Register 15 is set to zero if no errors were 


encountered. [DCK02000] 


12 If the caller is authorized and TYPE=ADD, 


DELETE, or VERIFY was specified, an ABEND 
macro is issued (16E system code). If TYPE=PURGE 
was specified, or if the caller is not authorized, returns 
to caller. In either case a return code is set in register 
15. See the ‘Diagnostic Aids” section or OS/VS2 
System Programming Library: Data Management for a 
description of the return codes issued. [DCK01000] 
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Diagram 6.0. Problem Determination, Recovery, and Termination—Overview 


RO Diagram Problem Determination 


Internal ABEND code table entry Number (determinate errors only) 
ipa — 


| 6.1. Traces work areas and control blocks; gives 
Entered via DMABCOND control to user’s DCB ABEND exit. 
macro issued by O/C/EOV 


R/TM 


GTF data set 


) System Resource Recovery 
| (determinate and indeterminate errors in O/C/EOV and DADSM) 
Entered from R/TM 

| via ESTAE address 
= 6.2 Records information about the error. See Diagram 6.3 for output 
| 6.3. O/C/EOV errors: calls force close executors; See Diagram 6.4 for output details 

| forces data sets to closed status. 

| 6.4 Dequeues, de allocates, and releases resources 

| (control blocks, data sets, devices) acquired by 

| the failing component. Returns 

| to caller 
--’ 


Data Management Resource Manager 
(Task close) 


At task and memory termination, assures that 
resources acquired by O/C/EOV and the access 
methods are released. 


Returns 
to caller 
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Diagram 6.1. Problem Determination—ABEND Interpretation and DCB ABEND Exit 


DMABCOND 
macro instruction 


RO Internal 
ABEND 
code 1 


ABEND code table entry 
+0 +1 +3 +4 = «145 


2 
ete Lely ex -——— | 3 


Internal ABEND code 
1 t 
System completion code and 
valid recovery options 


1 \ 
Contents of R15 
(return code) 


1 
Trace code 


from 


JFCB, TIOT, UCB, DCB/ACB, 
etc., as specified by the trace 
code (+4 byte of internal code 
table entry) 


DCB ABEND 
exit routine 


Gets storage for message buffer, control blocks to 
be traced, and a parameter list. 


Moves codes and ID passed by caller. 


Builds message and issues it. on“ 


. Moves control blocks to be traced. 


. Writes control blocks. 


. If user provided a DCB ABEND exit routine, sets 


up parameter list and gives control to user’s routine. 
DCB ABEND 


exit routine 


. Determine what user wants to do about the ABEND 


condition; 


7a Immediately terminate the task. 
7b Ignore the condition for now or delay the ee 
ABEND till all other parameter list entries 


are processed. IFGOI9RA to pass 


control to next module 


7c Try to recover from error. 


O/C/EOV module that 


will initiate the retry 


0. 


Control 
blocks 


being 
traced 


|} Parameter list list 


GTF data set 


DCB ABEND exit routine interface 


DCB ABEND parameter list 


+3 


Option code: see 
OS/VS Datu 
Management 


Services Guide tor 
codes passed to 

and returned from 
DCB ABEND exit 


routines 
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Diagram 6.1. Problem Determination—ABEND 
Interpretation and DCB ABEND Exit Recovery 


If an abnormal termination (ABEND) condition is 
detected during O/C/EOV processing, the routine that 
detected the abnormal termination condition issues the 
DMABCOND macro instruction to call this function. The 
DMABCOND macro instruction passes the internal 
ABEND code, using which, this function writes a message 
and traces control blocks, blocks, and then, if the user has 
provided a DCB ABEND exit routine, passes control to 
the user's routine to allow him to attempt to recover. See 
OS/VS Data Management Services Guide fora 
description of the ABEND conditions from which the 
user can attempt to recover. 


IFGO190P from Open 

1FG0200P from Close 

IFG0230P from TCLOSE 

IFGO550P from EOV 

1GG0196M from RDJFCB or the Access Method Open 
Executors 

1GG0206M from the Access Method Close Executors 


1 Registers 2 and 4 through 8 are saved in the SVRB 
extended save area. This routine uses the internal 
ABEND code passed in register 0 to refer to tables 
that contain the system ABEND and return code, a 
trace code that indicates which control blocks are to 
be written to the GTF trace data set for each ABEND 
condition, and the 1D of the message that is to be 
issued to the programmer. See “‘Internal ABEND 
Codes” for a description of the codes and their 
meanings. [PDF01010] 


2 This routine gets a work area, sets it to all zeros, and 
moves the internal code, return code, trace code and 
message ID into the work area. [PDF01040] 


IFGO199B 


3 Even if the user recovers successfully in his DCB 
ABEND exit routine (see step 6), a message is written 
to indicate the nature of the problem from which he 
recovered. This routine formats the message that is to 
be issued, completing all the fields: job name, step 
name, concatenation number, data set name, etc. The 
routing and descriptor codes are also moved into the 
message, then the message is issued. [PDF02000] 


IFG0199D 


4 Based on the internal ABEND code passed by the 
routine that issued the DMABCOND macro, this 


co 


routine traces significant control blocks by writing 
them to the GTF data set. [PDF03040] 


IFGO199E 


6 Determines whether the user provided an active DCB 
ABEND exit routine address in his DCB exit list. If it 
was not provided, the ABEND is delayed, if possible; 
otherwise the task is immediately abnormally 
terminated by issuing the ABEND macro instruction. 
[PDF04010) 


Copies the DCB from protected storage to the user’s 
storage, sets the lock bit, and saves the contents of 
register | inthe SVRB extended save area. Moves 
valid options to the user’s parameter list and passes 
control to the user's DCB/ACB ABEND exit routine. 
[PDF04040] 


7 When the user returns from his DCB ABEND exit 
routine, this routine examines the option mask (byte 3 
of the parameter list) to determine what the user 
wants to do and if what he wants to do is valid under 
the conditions. If the user specified an invalid option, 
the ABEND is delayed, if possible. [PDF04060] 


Ja Issues the ABEND macro. [PDF04480] 


7b If the ABEND can be delayed or ignored under the 
conditions under which the error occurred, this 
routine turns off the busy bit in DCBOFLGS, sets the 
delay-ABEND indicator in the JFCB or the ignore 
indicator in the RRPL, and issues the IECRES 
LOAD, BRANCH=QUEUED macro to allow 
IFGOI9RA to use the WTG table to determine which 
O/C/EOV module is to get control next. [PDF04450] 


Note that if the error occurred in an open or close 
access method executor, IFGOI9RA will give control 
to the access method executor determination function 
(module IFG0O196V or IFGO200W) so that any other 
ACB/DCB being processed in parallel can be 
processed by the access method executors. 
[PDF04420) 


Te If the user provided new volume serial numbers to be 


used in trying to recover, this routine moves them to 
the JFCB or JFCB extension. [PDF04080] 


Frees the work area obtained in step | and the user's 
work area, if requested, then returns to the O/C/EOV 
routine that will attempt to recover. [PDF04520] 
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Diagram 6.2. Recovery —lInitialization and Error Recording 


R1 
RRPLIST 
SDWA PARM R/TM RRFLAGS 
De ee ie |. Determines conditions at entry: was SDWA SSS ae 
A passed? Is a special termination in process? SSS 
© etc Recovery routine work area 
Error flags Prefix, 
~ / 2. Gets recovery routine work area and establishes | Extended prefix | 
Pee — second-level recovery routine. (register save area) 
If no SDWA is passed by R/TM, a TOP ae . 
RO = X’00 00 00 OC’ 3. Records error information: 
R1 = System completion { , 
code in low-order hat aN ‘ : : 
12 bits 3a Initializes fixed and variable portion of SDWA SYS1.LOGREC recording list 
for SYSI1.LOGREC record. 


Avr GTRACE buffer 
3b Builds header for SYS!1.DUMP data set; issues 
SDUMP. @r> 
ORS Newase utter 
3c ee and issues message about indeterminate ALS ST INER Reader and ink 


3d Gets and initialize RRCBSA; moves chained work 
areas to RRCBSA and formats nt SDWA 


l'ixed portion 
SDWAMODN 
SDWACSCT 
SDWAREXN 


Initial work area base 


JIERRPRM 


RRPLIST 


> 


3e Moves data to be traced to work area and issues 
GTRACE macro instruction. 


4. If no SDWA was passed, or if the error occurred in 


: Variabl i 
RDJFCB or a DADSM routine 6.4) bere dl anaes 
O/C/EOV or DADSM work areas Resource clean-up SDWAVRA 
—otherwise— and final recovery 

routines 

Go to the force close routines. 6.3) RECESS Prefix 
Force Base prefix 
close ed Prefix 
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Diagram 6.2. O/C/EOV and DADSM 
Recovery—Initialization and Error Recording 


The recovery initialization function is entered via the 
ESTAE interface from the recovery/termination manager 
(R/TM) when an abnormal termination condition or an 
indeterminate error (a program check or a machine 
check) is encountered during O/C/EOV or DADSM 
processing. The address of the first load of these recovery 
routines is established at the time the O/C/EOV or 
DADSM function gets a work area during initialization 
(see Diagram 5.1, IECRES GET). 


IFGORROA i 


1 Internal flags are set that are used to determine 
subsequent recovery processing when this routine is 
entered under the following conditions: (1) no system 
diagnostic work area (SDWA) was obtained and (2) a 
special termination (e.g., the operater cancelled the 
job) is in process; this means that the recovery routine 
is not allowed to retry the function that failed. 
[STARTOAJ 


2 Awork area is obtained from subpool 230 and the 
address of a second-level recovery routine, 
IFGORROF, ts established. This routine is given . 
control if ar error occurs during the execution of the 
first-level recovery routines (IFGOR ROA, IFGORROB, 
or IFGORROE). [LVL20A] 


3. The nature of the error information to be recorded is 
determined from the following conditions: (1) whether 
an SDWA was passed by R/TM; (2) whether the entry 
was via percolation from R/TM, the result of an 
abnormal termination condition, the result of an 
indeterminate error (a program check or a machine 
check); or (3) whether a special termination is in 
process. [ERRRECOA] 


One or more of the following error recording 
subroutines is called: 


3a Information is set up in the SDWA for inclusion of a 
record to be written to the SYS1.LOG data set on 
return to R/TM. [SUBLOG] 


3b An SDUMP macro is issued to write the information 
to be dumped to the SYS1.DUMP data set. 
[SUBDUMP] 


3c A WTO macro is issued to issue the [EC999] 
indeterminate error message. [SUBWTP] 


3d This subroutine obtains a work area in subpool 230 for 
building the recovery routine contro! block save area 


3e 


ia 


(RRCBSA). The chained work areas, including their 
prefixes, obtained by the O/C/EOV routines during 
normal processing are validated and copied into the 
RRCBSA segment. An RRCBSA will be built fora 
DADSM error only when an ISAM or VIO allocation 
is in progress when the error occurred. See the section 
““ABEND Error Recording from the System Recovery 
Routines” for a description of the RRCBSA. [SUB230] 


This subroutine issues the GTRACE macro instruction 
to write the RRCBSA to the GTF data set. 


This routine determines the next function to receive 
control. The recovery routine clean-up and 
termination function (Diagram 6.4) is given control if 
(1) no SDWA was passed, or (2) the failure occurred 
in a DADSM routine or in RDJFCB. The Force Close 
routine, IFGORROB (see Diagram 6.3), is given 
control if the failure occurred in an O/C/EOV 
routine. [NEXTMOD] 


This routine reestablishes register contents necessary 
to continue processing after the second-level recovery 
routine, IFGORROF, returns control. [RETR YOA] 
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Diagram 6.3. Recovery—Force Close 
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Diagram 6.3. Recovery—Force Close 
IFGORROB 


This function is entered from the initialization and error 
recording function when a determinate or indeterminate 
error occurs during Open, Close, or EOV processing. This 
function forces data sets to closed status in order to 
preserve the integrity of the data sets and to release all the 
resources that were obtained during O/C/EOV 
processing for the task that failed. Force closing involves 
performing some or all of the functions provided by the 
Close component. The stage of processing at which the 
failure occurred determines how many of the Close 
functions must be performed. 


1 The CRSA is used by the issuer of the OPEN, CLOSE, 
FEOV, EOV macro in his ESTAE exit, which can 
receive control from R/TM after Force Close has 
completed. When the CRSA has been obtained, this 
routine puts its address in the SDWACOMYFP field of 
the SDWA. [GETCRSA] 


2 If the error occurred during Open or EOV processing, 
none of the Force Close functions will be done unless 
the first CSECT (IGCOOOII, IGCOOO3A, or 
1GCO005E) was successfully executed. [CHKFIN1] 


3 If entry to the recovery routine resulted from an 
indeterminate error (e.g., a program check), all of the 
DCB/ACBs that have not yet been closed will be force 
closed. 


If entry to the recovery routine resulted from an 
ABEND condition detected in the O/C/EOV 
components, for which a DMABCOND macro was 
issued, followed by an ABEND macro, this routine 
will determine which of the DCB/ACBs in the 
parameter list needs to be force closed: (1) if the error 
was detected by an Open routine, this routine will 
select any DCB/ACB not yet marked as open in the 
DCB/ACB OFLGS field; (2) if the error was detected 
by a Close routine, this routine will select any 
DCB/ACB not yet marked as not open in the 
DCB/ACB OFLGS field; and (3) if the error was 
detected by an EOV routine, only one DCB/ACB will 
be in the parameter list, and it will be force closed, if 
normal EOV processing has gone beyond the point 
where a normal close could occur. Since a multiple 
OPEN or CLOSE request may be in progress, it is 
important to note that all the DCB/ACBs that can be 
successfully opened or closed will have already been 
processed. Only the DCB/ACBs for which errors 
occurred must be forced to closed status. 
[SELTCALL] 


cr 


4 This routine determines whether an access method 
executor should be given control during Force Close 
processing. This depends on which O/C/EOV 
functions had been completed when the error 
occurred. The chronological order in which the 
O/C/EOV components are called, relative to the 
access method executors follows: 


1. SVC 19 receives control from the SLIH 
2. Open access method executors 
or open strings (e.g., VSAM or VTAM) 
given control 
3. Open access method executors 
or open strings complete successfully 
4. Open completes successfully 
5. EOV (SVC 55 or 31) gets control from SLIH 
6. EOVcompletes successfully 
7. Close (SVC 20) gets control from the SLIH 
8. Close access method executors or close 
strings given control 
9. Close executors or close strings 
complete successfully 
10. Close completes successfully 


If an error is encountered during the phase between 
items | and 2 or between items 9 and 10, only the 
access method string force close executors (e.g., 
VSAM force close executor) could be given control. If 
the error occurs at any point after the Open access 
method executor receives control (item 2) and before 
the Close access method executors return control 
(item 9) a force close executor will be called by this 
routine, if one exists for the particular data set 
organization. [CTRCALL] 


Using the MACRF and DSORG field of the DCB, the 
DSORG and AMETH fields of the ACB, the 
TIOELINK field of the TIOT (to test for spooled 
SYSIN and SYSOUT data sets), this routine 
determines which force close executor is to be given 
control. [FCXCHK] 


This routine passes control and the following registers 
to the force close executors: R2 >» copy of DCB/ACB 
being force closed; R4 »O/C/EOV main work area 
associated with the DCB/ACB to be force closed; 
R5recovery routine work area; R6 > WTG table for 
this request; R7 »>SDWA; R8>RRPLIST; R9>DD 


entry or is set to zero; and R11 » DEB or is set to zero. 


[FCXIFACE] 


When the force close executors return, register 15 


contains one of the following codes: OO—OPEN macro 


may be reissued for this DCB/ACB; 04—OPEN 
macro should not be reissued for this DCB/ACB; and 


Ce 


ra 


08—the DCB/ACB is not to be restored to pre-open 
status and OPEN should not be reissued. 
[FCXRETRN] 


When the force close executors return control, this 
routine determines which of the force close 
subroutines are to be executed. For a tape or direct 
access data set, selection of the force close subroutines 
depends on (1) for data sets on tape on the type of 
label being used (SL, AL or NSL) and on whether the 
data set was opened for input or output, and (2) for 
data sets on direct-access devices, whether the EXCP 
access technique is being used, whether the data set 
was opened for input or output, and whether a 
physical-sequential data set is being processed 
(DSORG = PS or PO). [POSTFCX] 


Several force close strings, consisting of subroutine 
calls, are defined in the following paragraphs. The 
calling routine that calls each of the force close 
subroutines is defined below. The label identifying the 
calling routines follows their description. The numbers 
of each of the subroutines called are associated with the 
labels. For example, the calling routine that handles 
force close processing for ACBs representing SYSIN 
and SYSOUT data sets can be found at label SPACB. 
The routine at label SPACB calls subroutines numbered 
1, 12, 13, 15, 18, and 19. This is shown as: 


[SPACB1,12,13,15,18,19] 


Descriptions of the functions performed by the 
numbered subroutines follow the calling routine 
descriptions. 


A VSAM data set or data space is to be force closed. 
[VSAM13,19] 


A SYSIN or SYSOUT (spooled) data set represented 
by an ACB is to be forced to closed status. 
[SPACB1,12,13,15,18,19] 


A SYSIN or SYSOUT (spooled) data set represented 
by a DCB is to be forced to closed status. 
[SPDCB11,18,19] 


A VTAM data set is to be forced to closed status. 
[VTAMI8,19] 


A dummy data set is to be forced to closed status. 
[DUMMY1,9,11,12,13,16,18,19] 


A data set on a tape unit that is not ready is to be 
forced to closed status. 
({TAPNR1,9,10,11,12,13,14,16,17,18,19] 
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An input data set on tape with standard labels (SL/AL 
or SUL/AUL) is to be forced to closed status. 
[TAPSLIN1,6,7,9,10,11,12,13,14,16,17,18,19] 


An output data set on tape, with standard labels 
(SL/AL or SUL/AUL), is to be forced to close status. 
[TAPSLOUT1,5,6,7,9,10,11,12,13,14,16,17,18,19] 


A data set on tape with non-standard labels (NSL), 
with no labels, or for which label processing was 
bypassed (NL or BLP) is to be forced to closed status. 
[TAPNL1,4,6,7,9,10,11,12,13,14,16,17,18,19] 


An input data set on a direct access device or a data 
set on a direct access device being accessed using the 
EXCP access technique (MACRF=E), where a device 
dependent section is not present, or a data set ona 
direct access device for which the DSORG was not 
specified as PS or PO (physical sequential or 
partitioned) is to be forced to closed status. 
[DA11,6,9,10,11,12,13,14,16,17,18,19] 


An output data set on a direct access device for which 
a DSORG or PS or PO (physical sequential or 
partitioned) was specified. 
[DA31,2,3,6,9,10,11,12,13,14,16,17,18,19] 


When none of the previous conditions apply (that is, 
the data set is not VSAM, VTAM, or SYSIN or 
SYSOUT, not on tape or direct access), this routine 
calls subroutines that force the data set to closed 
status. [OTHER1,8,9,10,11,12,13,16,17,18,19] 


The functions performed by each of the subroutines 
called by the previous routines are: 


1. Deletes the address of the DEB associated with 
the data set from the DEB table. [DEBCKDEL] 


2. Writes an updated format-1 DSCB for the data 
set being force closed to the VTOC. [WRDSCB] 


3. Writes a file mark at the end of the direct access 
data set. [WRFMARK] 


4. Writes a tape mark at the end of the data. 
[WRTM] 


5. Writes a tapemark, labels, and another tapemark. 
[WTMLBLTM] 


6. Builds and writes an SMF record to record data 


set activity. [CHKSMF] 


7. Rewinds the tape volume currently being 
processed. [VOLDISP] 


8. Frees the error recovery procedure (ERP) work 
area used for 3211 printer. [CHKUNREC] 


C 


Deletes the access method processing routines 
and their associated I/O appendages. 
[(CHKSUBNM] 


Frees the user-totalling save area. (CHKUTOT] 


Restores the DCB to pre-open status. 
[DCBREST] 


Removes the DEB associated with the data set 
from the TCB-DEB chain. [DCHNDEB] 


Decrements the count of number of data sets in 
the DSAB (the DSABOPCT field). 
[DECRDSAB] 


Decrements the count of the number of open data 
sets in the UCB (UCBDMCT field). 
[DECRDMCT] 


Restores the ACB to pre-open status. 
[ACBREST] 


Frees any IRBs associated with the data set. 
[IRBCHK] 


Frees any RQEs associated with the data set. 
[RRQCHK] 


Performs final DCB/ACB restoration. 
[FINREST] 


Copies the DCB/ACB in protected storage to the 
user's storage. [COPYBACK] 
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Diagram 6.4. Recovery—Resource Clean-Up and Final Processing 
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> 2. Call the cleanup routines: 


DADSM error 
2a Dequeues the VTOC, if enqueued 
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2d Dequeues the TIOT, if enqueued 

2e Frees the format-! DSCB in the SWA if a 
VIO data set was being allocated at the time 
of the error. 


O/C/EOV error 


2f Dequeues the PASSWORD data set, if 
enqueued 


2g Frees the O/C/EOV work area(s) 


. Frees the RRCBSA after restoring recovery 


routine work area 


termination 
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. Returns to R/TM to retry or to continue the PLLLLLLLLLL LLLP LSS 


If no SDWA is passed, 
the following return codes 
are passed in R15: 


O — continue the termination 
4 — retry the failing function 
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Diagram 6.4. Resource Clean-up and Final 
Recovery 


IFGORROE 


1 This routine determines whether the failure occurred 
in O/C/EOV or DADSM. 


e The following subroutines are executed when the 
DADSM functions fail: 


2a The DEQ macro is issued with major name of 
“SYSVTOC” and minor name of the volume serial 
number of the volume being processed by the DADSM 
routine that failed. [SUBVTOC] 


2b If the UCB associated with a data set being scratched 
or renamed was dynamically allocated, this routine 
issues the DYNALLOC macro to deallocate the unit. 
[SUBALLOC] 


2c Issues the DEQ macro with major name of 
“SYSDSN” and minor name of the data set name that 
was being processed by the DADSM routine that 
failed. ([SUBDSN] 


2d This routine issues the DEQ macro with major name 
of “SYSZTIOT” and minor name of the ASID/DSAB 
address. [SUBTIOT] 


Ze If a VIO data set was being allocated when the 
DADSM routine failed, this routine frecs the virtual 
DSCB that was being used to make the allocation. 
[SUBSWA] 


e The following subroutines are called when O/C/EOV 
routines fail: 


2f Issues the DEQ macro with major name 
“SYSZPSWD” and minor namc of the data set. 
[SUBPASS] 


2g Frees the RRCBSA (built in IFGORROA) after 
restoring the O/C/EOV chained areas. The IECRES 
FREE,PREFIX=YES,A=(1) macro is used to free all 
of the RRCBSA. [SUBFREE] 


3. Releases the work area obtained in IFGORROA (see 
Diagram 6.2). [TRRWAFRE] 


4 This routine returns to R/TM. A direct branch is used 
to return control if no SDWA was passed. The SETRP 
macro is used if an SDWA was passed. If no SDWA is 
available, register 15 is used to communicate the 
request to continue the abnormal termination. If an 
SDWA is available, the request to continue the 
termination or to retry the failing function is 
communicated by the SETRP macro instruction. A 


Cc 


retry is attempted only if (1) a special termination is 
not in progress, (2) an SDWA was passed, and (3) a 
retry address of the Open or Close routine has been 
provided. A retry address will be provided only when 
an ABEND condition has been detected and the 
IGNORE option (see Diagram 6.1) is allowed and 
chosen by the user's DCB ABEND exit routine. 
[PERCBR] if direct branch to R/TM, [PRECSET] if 
SETRP is used to return to R/TM, or [MLRETRY] if 
a retry is to be attempted. 
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Diagram 6.5. Task Close (Data Management Resource Manager) 
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Diagram 6.5 Task Close (Data Management 
Resource Manager) 


The Task Close function is called by the termination 
component of the recovery/termination manager 
(R/TM). It is called to release the resources that were 
obtained during open processing by the Open 
component. Five conditions are handled by Task 
Close: request block (RB) purge in step 2; normal and 
abnormal task termination in step 3; normal memory 
termination; and abnormal memory termination in 
step 4. The condition to be handled is determined 
based on the contents of the RMPLFLGI field, 
established by R/TM. 


IFGOTCOA 


1 


3a 


At entry, this routine obtains a work area and 
establishes the address of the recovery routine 
(IFGOTC4A) that is to be called by R/TM if Task 
Close fails. [IFGOTCOA] 


When a request block purge is requested. this routine 
builds a Close parameter list containing the address of 
only one DCB/ACB. The LEAVE option is specified 
in the high-order byte of the entry. The LEAVE 
option tells Close to position the data set at its logical 
end. The DCB/ACB address is obtained from the list 
of ACB/DCB addresses pointed to from the RMPL 
(RMPLDCBL). Close is called once for each entry in 
the list of ACB/DCBs addresses. 
[IFGOTCOB(TCOBRBP)] 


This routine tssues the CLOSE macro, once for each 
entry in the list of ACB/DCBs. [IFGOTC1B] 


When each entry in the RMPLDCBL has been closed, 
this routine exits via step 5. [IFGOTC3A] 


This routine is entered when R/TM indicates that a 
task is being terminated, either normally or 
abnormally. [IFGOTCOA] 


This routine picks up the address of a DCB from each 
DEB in the TCB-DEB chain, points to it with register 
I (constituting a Close parameter list). arid passes 
control to Close (Diagram 3.1) to close the data set. 
[1IFGOTCOB(TCOBTSKT)] 


3b When each data set represented by ACB/DCB in the 


TCB-DEB chain has been closed, this routine zeros 

the pointer to the DEB chain in the TCB and frees the 
1) EB table. Note: the DEB table is rcleased only if the 
terminating task is a jobstep task and the JSCB of the 


mother task and the terminating task are not the same. 


[IFGOTCOC] 


3c 


3d 


ia 


When a DCB/ACB that has been closed represents a 
VIO data set, this routine issues the WIJOURN macro 
instruction to ensure that the format-1 DSCB and the 
data set page correspondence table (DSPCT) for VIO 
data sets are available to the restart or a jobstep 
restart component, in case a restart at a checkpoint is 
subsequently performed. [IFGOTCOD] 


For normal/abnormal job step task termination, this 
routine issues the WIJOURN macro instruction to 
ensure that the format-1 DSCB and the data set page 
correspondence table (DSPCT) for VIO data sets are 
available to the restart or a jobstep restart component, 
in case a restart at a checkpoint or an automatic step 
restart is subsequently performed. [IFGOTCOD] 


This routine calls the ISAM executor (IGG0202C) to 
ensure that the DCB field area (DCBFA) has been 
freed. See OS/VS2 ISAM Logic for additional details. 
[IFGOTCOF] 


Task close is called during a normal memory 
termination, but no processing takes place; however, 
when called during abnormal memory termination, 
this routine calls several resource managers to ensure 
that any storage acquired by data management 
components is freed and that any resources enqueued 
upon are dequeued. 


Calls the VIO resource manager, IDAVBPS2, to free 
logical group control blocks (LGCB), and release VIO 
data sets or logical groups that have not been 
journaled (that cannot be reactivated). [IFGOTCOE] 


Calls the ISAM executor, IGG0202C, to ensure that 
the DCB field area is freed. [IFGOTCOF] 


Calls the VSAM O/C/EOV executor, IDAOCEA2Z, to 
free resources. See OS/VS2 Virtual Storage Access 
Method (VSAM) Logic. [IFGOTCOG] 


Calls the VSAM catalog O/C/EOV executor, 
IDACATI3., to free resources. See OS/VS2 Catalog 
Management Logic. [IFGOTCOI! 


Calls GAM resource manager, 1GG0203Z, to free 
resources. See OS/VS Graphic Access Method Logic. 
[IFGOTCOH] 


Frees work area obtained in step 1, puts a return code 
in register 15, and returns to caller (R/TM). If register 
15 is not zero an abnormal termination ts issued by 
R/TM with system code C03. [IFGOTC3A] 
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PROGRAM ORGANIZATION 


Legend: 


The charts that follow show flow of control among the O/C/EOV object 
modules. Each box represents an object module. Object modules are the same 
as control sections in the O/C/EOV routines. The module names on the left 
and above each box are the modules that enter the module represented by the 
box; the module name below and to the right of each box are the modules to 
which the module represented by the box can pass control. 


This section can be used in conjunction with the method of operation 
diagrams in Section 2 to determine the function provided by each module. 
Section 4, the “Directory,” which lists module names in alphameric sequence 
and tells on which method of operation diagrams and in which chart in this 
section an object module may be found. 


There are several paths through the O/C/EOV modules that are most 
commonly used. Several factors determine which of these common paths are 
taken: the function being performed (for example, opening a data set); the 
kind of device the data set being processed resides on; and whether the data 
set is being opened for input or output. Other factors also affect which path 
through the O/C/EOV modules is taken, but not significantly. Many of the 
more common paths through the O/C/EOV modules appear in the module 
lists in in the “Module Listing Routine Examples” section. You may want to 
examine these lists in conjunction with the charts that follow. 


IFGO0192G 


The module names in italics that appear to the right or left of a 
module box in italics are modules that are documented in another 
program logic manual, usually in an access method PLM. 


(R14=multiple of 4) 


Many of the O/C/EOV modules have branch tables as their entry 
points. The function performed by these modules depends on the 
contents of register 14 at entry. The register 14 contents are provided 
here to indicate exit and entry conditions. When no register 14 
contents are shown, you may assume that (1) the initial entry (R14 = 
Q) is being used, or (2)the module being entered does not have a 
branch table. 


(1,2333:5) 


These numbers are the O/C/EOV internal ABEND codes passed by 
the module they appear with to the appropriate problem 
determination routine (IFGO190P, IFG0200P, IFG0230P, 
IFG0550P, or IGG0196M). Each internal code is associated with a 
system ABEND code and return code passed in register 15. A 
cross-reference table for these internal codes, system codes, and 
return codes, as well as the message associated with each, appears in 
the ‘“‘Diagnostic Aids” section. 


[1.2] 


The numbers in brackets following the name and description of a 
module receiving control are off-page connectors. They tell you 
which chart to turn to next if you are following a particular path 
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through the component. Some of the exit routines are not followed 


by brackets. You will find these modules (1) on the same chart or (2) : 
if the module name is in italics—for example, [DA0192G —in 2 
another PLM. 
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SVC 19 


IFGO202L, concatenation 
of dat sets with untike 
characterisucs 


1GC00011 iGcolol) 


Open Initialization 


SVC 22 


IFGUIVIY, return 
from VSAM catalog 


IFGOI93A 
Initiahzation 


(continued) 


IFGOIS4C (R1IG=12}, return 
from DA volume verify 
IFGOI94F (R147 13), retern 
from tape volume verily 
IFGO194J (R14=8, 28, 32) 


IFGOI9SB (R14=0), EQVI. 
p to next volume 


IFGOI9SD (R14= 16), MSL 
inpul Lape rejected 
IFGO19SH (R1420, 
DISP = MOD, recovery 
back up volume 
IFGO196N (R 14216), SL 
Owtpul tape rejected 
IFGO1960 (R14= 16), N&L 
Outpul tape rejected 
IFGO196Q (R 14716), SL 
Oulpul Lape rejected 
IFGO196T (R 14716), SL 
OvIpul tape rejected 
IFGOIS6L (R 14716), SUL 
Owlpul lape reyected 
IFGOL99E (R 1424), ney 
ininated by problem 
determination 

IFGO202F (R14=4), 
demount volume 
IFGOSS 1B (R14=16), EOD 
concatenation in progress 
IFGOSSIT, mount aew 
Oulput tape volume 
IFGOSS2N (RK 14716), 
volume rejected 
IFGOSS2V, mount aew 
input Lape volume 
IFGO55 3H (R14= 16), 
inpul Lape volume rejected 
1FG055 3P, DA inpet, 
mount new volume 
IFGOSS4B. spanned DA 
volume-moOunt next 
IFGOSS4P (R 14716), DA 
Output, volume rejected 


Sedect a Unit and 
Volume 


IFGO1946C, DA volume 
00 be verified [1.3] 
IFGOI94F, tape volume 
to be verified 

IFGO194] (R14=4, 

16). msue 

IFGO19SA, DA volume 
vere(erd [1.3] 

IFGOI9SB, SL wpe 
volume verifies | 1.2} 
IFGOI9SC. NL (BLP) 
tape volume verified | 1.2] 
IFGOI9SD. NSL input 
tape volume verfeed | 1.2] 
1FGO195G. DA 213 
ABEND conditeon | 1.3] 


IFGO193D, R14= 16) 
IFGO1S3E, (R14=16) 


olFGO194A, verily 


a tape volume 


1FGO194) (R14=8, 12), 
return from menage 


Return to caller, IFGO19 3D (R14=4, 20, 32, 40, 48) 

nothing to open Label conflicts 

(FGUIVIX VSAM IFGOI93E (R 1474, 36) 

Catalog Label conflicts 
IFGOIS4A (R144, 16) 
IFGOIS4C (R 14=4), 
verify DA volume 
1FG0195B 
IFGOI9SH (R14=20) 
IFGOI9SK (R14=8) 
IFGOL96GN (R 1458. 40) 
IFGO196Q (R14=20) 

Rerurn to caller. IFGONS6T 

nothing to open 

IGGO196M (4, 139, 140) ($.1]  IFGOSS2F (R 14248) 
IFGOSS3F 


IDAGIVYIF VSAM 
Probiem Determination 
IFOOIVIA, VSAM data set 


IFGUIVIb, VTAM data set 


EGOS ISAM-to-VSAM 
Interface 

IFG0196J. SYSIN oF 
SYSOUT DCB [1.4] 
IFGOI196V, SYSIN or 
SYSOUT ACB | 1.4] 
IFG0190P, Problem 
Devermination (34. 37) [5.1] 


IFGO194F 


IFGOSS4F 


IFGO194A (IFGOSS4A, 
IFGO2044) 


IFGO194) 


1FG0196], NSL output 

tape verified [1.4] 
IFGOI96N. SL output 

tape verified [1.2] 

IFGO1960 (R14"4), 
remount compinie [1.2] 
IFGO19OP, 1. 6, 8, 12. 05, 16. 
26, 28, 32, 37, 42, 43, 50, 
246 [5.1] 

IFGO0S5 2B, outpur tape 
volume verified (2.3) 
1FGOSS2X. EOF [2.1] 
1FGO553F, new concatenated 
volume verified (2.2] 
IFGOS53X. DA iaput 

volume verified |2.4] 
IFGO554B, spanned 

volume verified |2.4| 
IFG0554F. DA output, 
extend allocation |2.4| 
IFG05547 B37 ABEND [2.4] 
IFGCASSH. DA input 

volume verified |}.4) 
IFGOS SOP (142. 156, 168, 
197, 247, 248) [5.1] 


Chart 1.1. Open Initialization and Volume Mount and Verification 


IFGO194F (1FG0S54F) 
Verify Tape Volume 


IFGOIS4A, volume 
verified 
IFGO193C, Open label 
conflicts 
IFGO190P (R 14=24), 
(2,3, 12, 17, 18, 

19, 23) [5.1] 
IPG0S53C, EOV label 
coafticis 

IFGOSS5OP (155, 158, 160, 
161, 198, 192) (5.0] 


IFGO194J (IFGOSS4), 
1FG0204)) 
Imue Messages 


IFGO193E (R14=8, 28, 32) 
IFGOI94A (R1428) 
IFGOI94C (1424, 8) 
IPGOI94F (R14=8, 12) 
IFGO19SB [1.2] 

IFGOI9SH j1.2| 

IFGOISSK (R14=4, 8) [1.2] 
IFGOIS6N (R14=4) [1.2] 


1FGO196Q [1.2] 


IFGOSS2F (R14=4) [2.3] 


IFGO190P (244) [5.1] 


1FGO193C (OMODVOL I) 
IFG0553C (EMODVOL1) 
Determine Labet Conflict 


IFGO193D (1GGO190a) 
IFGOSS 3D (1GG0550P) 
Destroy Standard Label 


IFGOIS4F (R14= 16) 


IFGO194) (R 1424, 20, 32, 
40, 48) 
“O190P (240) (5.1) 


IFGOI93E 
IFGOSS3E 
Create Standaré Label 


IFGOIS4F (R144, 16) 


IFGO194) (R 14236) 


Program Organization 121 


IFGOI94A, remount complete 
1FG0194) (R14=4), message used 


IFGO196M, merge complete 


IFGOL96N 
SL output tape - 


read existing 
HDR I isbet 


IFGOI94A, remount 

requised [1.1] 

IFGO194J (R 1478, 40), 

issued message | 1.1] 

IFGOI9ST, check password | 1.3] 


IFGO194J, message sued 


IFGOL95T, password checked 
IFGO196T, write date sei labels 


IFGO190P (11. 12. 20. 244) [5.1] 


iFGO196Q 
SL output tape - 


check expwationa 
date, rewrtle 
volume label 


IEFGOI94A (R142 16) [LL] 

IFGO194) (R142 20) [1.1] 
IFGOL96N 

IFGOI9ST. check password [1.3] 


IFGOUSOP (13. 15) [5.1] 


IFGOL96T 
SL output tape - 


write HDR | and HDR2 
labels 


IFGOI96A (R14=16) [1.1 
I1FGO194) (R14*48) | 1.1 
IFGO196V, access method 


executor selection [1.4] 
IFGO190P (15, 16) [5.1] 


IFGO196U 
SL output tape — 


finish HDR isbets, 
wrile user labels 


IFGO194A (R14=4), remount complete IFGOIS6A (R14™16) [1.1] 


IFGO196M (R 14=4), merge compizer IFGOI196V (R1428), accom 


NSLOHDRO method executor selection ( 1.4] 


(FGO1960 
NSL output tape — 
gives coatrol to 

NSLOHDRO 


(FGOIS4A (R 14216), volume 
rejectad by NSLOHDRO [1.1] 
IFGOI96V (BR 1428), access 
method executor selection | 1.4] 
NSLONDRO, peocesme 
nonstandard labels 


IFGO1960 (1) [5.1] 


Chart 1.2. Open Tape 
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IFGOI94A 


(FG0194) 


IFGOI9SB 
Poston SL tape 


(input and output) 


IFGOL94A (R1420) [1.9] 


IFGOL94] (R 14756), 
isme expiration date 
message | 1.1] 
1FG0196] SL output 
tape [1.4] 

IFGO194) IFGO190P (9, 10, 11, 12, 
152, 156) [5.1] 


IFGOL9SH 


SL waput tape - 
verify HDR | label 


IFGO194A (R14=0) [1.1] 
IFGO194) (R14™ 20) [1.1] 
IFGOL9OP (11,12, 13, 14, 


IFG.0194). message issued 183. 154, 1$5) [5.0] 


IFGOI9SK 


SL imput tape — 
verify HDR2 label 


IFGOU94S (RB 1424, $6) (1.1) 
IFGOI9ST, verify 

pasword | 1.3] 
IFGO196J, open merge [1.4] 


IFGOI9OP (9, 11. 12. 20) [5.1] 


IFGOI9SN 
SVL input tape — 
read user isbels 


IFGOI9ST, check password [ 1.3} 
(FGO1L96J, open merge [1.4] 


IFGOIS4A IFGO190P (9) [5.1] 


IFGOL95C 
NL(BLP) tape - 
positioning 


IFGOIS4A IFG0196J, open mergs [1.4] 


NSLONDRI (R14=8), revura IFGO19OP (9, 10) [5.1} 


IFG0195D (1GGO1908) 
NSL input tape — 

gives contol to 
NSLOHDRI 


IFGOI94A (R14=12) 
votume rejected by 
NSLOHDRI [1.1] 
1FGO196J, open merge | 1.4} 


NSLOHDRI 


IPGO190P (1) [5.1] 


IFGOI94A, venfy DA 
volume 
IFG0194), message usued 


IFGOI95T. password 
checked 

IFCOSS54P. EOV, DA 
Culpul sel new volume 
mounted 

IFGOEXOA 


IFGOIS4C 
Varify DA Volume 


IFGO1943 (R14=4, 20) [1.1] 
IFGOI9ST, check password 


IFGOS54P [2.4] 


1FGO190P (27, /, 36, 41, 141, 
142, 143, 171, 183, 214, 215, 
216, 230, 231. 242. 31. 239. 
243, 141, 142. 143) [5.1] 

IF GOSSOP (1, 2.3. 4.6. 178. 
188, 189, 190, 230, 231. 113. 
240.241 $. 2.3.6) [5.1] 
FGOEXOA 


IFGOI94A 


IFGO195G 
213 ABEND - enit tn 
user routine 


IFGOI98N, cleanup and 
return to caller [1.4] 
IFGOL9OP (30) [5.1] 


IFGOI94A, DA 
volumes s) verified 


IFGOI9SA 
DA data set - 
DSCB-to-JFC3 merge 


IFG0196J. open 
merge (1.4] 
IFGO19SF (IFGOSS4L) 


IFGO19S) 
DA input reads 
User labels 


IFGO196J, open 
merge [1.4] 


(FGOIS6A (R14=12, 16, 24) [1.1] 


IFGO194C 
(FGOISSK. 
IFGOL9SN 
1FGO195U 
1FG0196Q 
IFGO196U 
IFGOS52B 
IFGOSS SH 


IFGOI9ST (iFGOSS5T) 
Open/EQOV passe ord 
protection initinization 


IFGO194C (R14=12) [1.1] 
IFGO19SK (R14=12) 


IFGOL9SV, read F1 OSCB. 
PASSWORD date st 


IFGOL9SU ° 
GCONOSB, Check point IFGOI96) 
Restart a 

i R14=8) [1.2 
1GG02404, DADSM FGO196Q (R 14=8) [1.2] 
Scratch SFGOSS IH (14816) (2.2 
tcGasont, DADSM R2| 
Resse IFGOSS3X 


IFGOLSOP (21) [5.1] 


SECLOADA 
Scratch, Rename. 

Check poswat/Restart 
password protection 
mitiazanon 


(GCONOSB, Ceeckpoiat’ 
Restart 

foG0290.4, DADSM 
Scratch 

1GG0200/, DADSM 
Rename 


(FOULVIG, reenterel 
from VSAM security 
IFGOL9ST 


IFGOL9SV 
Reed F | DSCB for 
PASSWORD data art 


HFGOIVIG, VSAM 
security 


READPSWD 
Requests password from 
operator or terminal user 


IFGOI9SU 
Updates password record 


IFGOL95T. Open: FOV 
requett 
READPSWD 


SECLOADA, Scratch. 
Rename, of Check point; 
Restart request 
1FGO190P (22) [5.1] 


Chart 1.3. Open Direct Access and Open/EOV Password Protection 
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IFGOI93A, SYSIN of 
SYSOUT DCB 
IFCOIL94A 
IFGOI9SA 
IFGO19SS 
IFGO19SC 
IFGO195D 

IFGO19S) 

IFGOI9SK 


IFGOI9SN 


IFGO19ST 


IFGOL96) 
Open merge — 
JFCB to OCB 


IFGOL96K 
Open merge - 
JFCB to DCB, 


User's DCB exit 
routine, rerum 


IFGO196L 
DCB or 3800 JFCBE 


ext routine interface 


telecommunicauons 


IFGO190P (43) ($.1] 


From access method 
executors: see IFGOL96V 
éxit. 


IFGOI96W 
Access method 
executor ren 


IFGO196X 
Load EXCP 


appendages 


IFGO195G 


IFGO198N 
Open final 


IFGOISOP (31, 228, 238) [5.1] 


R/TM (ABEND) 


IFGOI93A 
1FG01960 
IFGO196P (IFG0555) 
IFGOI96T 


IFGOI96U 


User's DCB or 

SRO TPCBE exit, 

df active 

IF COL9OP (24, 32, 44, 
46) [5.1] 


IFGO196M 
DCB-to-JFCB 


merge 


IFGOI96N, SL outpuc 
tape data set [1.2] 
IFG01960, NSL output 
tape data set (1.2] 
IFGOL96P (IFGOS55J), 
process user Labels [2.4] 
IFGOL90P (47) [5.4] 


IFGO196V 


Access method 
executor witerface 


IGGUIVi0 TCAM 
message queue 
1GGOINIS TCAM 

line group 

IGGOLNds, TCAM 
dummy data set 
1GGO191.4, SAM, EXCP, 
TSO dummy data st 
{GGOLVIC SAM dummy 
data st 

IGGOIY2A ISAM data 
set 

fGGO19{4 BDAM data 
set 

14450193K. Subsystem data 
set [see appendn| 


Chart 1.4. Open Merge and Open Final 
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10G014 34 DSORG=CK, 
READ/WRITE set 
(GGUINTY Graphacs data set 


1GG0198B, TCAM (IBM 
3705 devece) 

1GG078¥F SYSIN/SYSOLT 
OCB 

IFGOL9OP ( 239} [5.1] 


SVC S$ 


EOV 
IGCOOOSE 
EOV initialization 


& 
User's SYNAD Return to 
routine, return 
IFGOSSIB 
SYNAD diagnostic 
routine 
Retura to 
caller 


iFGOSSID 


Message routine 


Chart 2.1. EOV Initialization 


Caller's EODAD routine 
IFGO5S1ID t ABEND 
IFGOS551F, EOV condition 


IFGOSSOP (174, 198, 219) [5.1] 


User's SYNAD 
routine 


RITM (ABEND; 


IFGOSSOY, return 
from VSAM catalog 
IFGOSS2V, tape 


input 


IFGOSS2X, input 


concatenation 


tGCOOOSE. EOV 


IFGOSSIF 
SYSIN/SYSOUT DCB 


IFGOS 52T, tape concatenation 


1FG0S553P, DA concatenation 


IFGOSS4A (1FGO194A) 


IFGOS59E, gnore ABEND 
condition 


FEOV 


IFGO550Y,VSAM 
catalog 

IFGOS52X, input 
EOD, SYSIN or 
SYSOUT DCB 
IFGOSS7A, ¥SAM 
data set 

IFGOSSOP (219) [$.1]} 


IFGOSSIH 
Determine device 
type 


(FGOSSIP,SL tape 
output [2.3] 

IFGOSSIT, NL{BLP) 
tape output [2.3] 
1FGOSS2R, SL, NL (BLP) 
tape input (2.2) 
IFGO0SS3P, DA input 


EOD, UR 


IFGOSS4A (R14 16), 
votume mount/verify [ 1.1) 
IFGOS548, reposition 
mount DA [2.4] 
IFGO5S4N, DA output 
FEOY [2.4] 

1FGO5S4P, DA output [2.4] 


NLSETRLO (Ri@1[) 
NSLETRi1 (R1428) 


IFGOSSOP (197) [5.1] 


IFGO552X 
EOD/concatenation 


User's EODAD routine 


IFGOSS IF, concatenation 
(like characteristics) 
(FGOSS IL, wait record 
concatenation (2.2) 
(FGOSS 38 (IFGO202H). 
SMF [3.2] 

IFGOS 54) (IFGO194J) 

(R 14=8), sme menage [1.1] 
6GC 00020, Chose 
(coecatenation, unlike 
characteristics) [3.1] 
1EGOSSOP (174, $76) (5.0) 


IFGOSSOP (182, 242) [5.1] 


Program Organization 125 


IFGO2078 {R14 = 12) IFGOSS4A (IFGOI94A), 
volume mounted/ verified 
IFGOSS IH (R14 = 0,4,8,22) 


IFGOSS3F 
lapat tape — Lobel 
processing, new volume 


IFGOSS2R (1GG0SS08) 


lapet tape positioning, 
current volume 


IFGOSS4) (IFCO194)), 


IFGOS52V, ap user tebets check secure volume [1.2] 
105538 (EGO202), NSLEHDRI (R14=24) 
SMF [3.2] IFGG5 SOP (162. 163, 
IFGO5568 (1FGO202m1, Ri4=24, 164, 165, 191, 194, 195, 
NSL tape [ 3.1] -NL tape 196, 240, 241) [5.1] 
IFGOSSOP (146, 147, 148, 

150, 180) {5.1} 


IFGOISST (R14= 16), 
password checked, return 
NStEHDR1(R 14824), 
retere 
ti] 
IFGOS53H (IFG0S50D) 
lapal tape - Label 
IFGOSS3B (IFGO202%), Processing, new volume 
SMF [3.2] 
IFGOSS52X, EOD, [2.1] : 
IFGOSSOP (149, 150) [5.1] 
UFGOSSST (IFGOL9ST), 
check password [1.3] 
IFGOSS4A (IFGOI94A) [1.1] 
; BSAM, QSAM EXCP IFGOSSOP (249) [5.1] 
F : 
IFGOSS1R au esa ‘ 
1FG05$38 (IFGO202H) —_ 
1FGOSS8X 
1FG0SS2F 
1FGOS$1X 
IFGOSS3Z 
IFGOSS IF, comcateastion 
in progres | 2.1] IFGOSSea 
IFGOSS4A (JFGOI94A), 
mount/verify new volwme | 1.1] IFGOSS5H 


IFGOSSOP (151, 152, 183, 155) [5.1] 


IFGOSSIL (1PGass IN) 
SAM EOY executor 


IFGOS58X 
Checkpoial ai EOV 


IFGOSSIL 


Chart 2.2. EOV Tape Input 
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IFGO5S1H 


WG0SS 38 (1FGO202B). 
SMF return (R14=4) 


NSLETRLO. return 


IFGOSS51IH 


IFGOSSIP 
Tape output — write 
EOV I label, 

cwrent volume 


IFGOSS1T (1FGOSSOF) 
Tape output - postion 
current volume 


SMF (K14=4) (3.2) 


IFGOSSOP (144) [5.1] 


IFGOSSOP (141) [5.1] 


IFGOSSOP (140, 141) [5.1] 


1FG05538 (1FGO202B), 


IFGOSS4A (IFGOI94A) 
mount/verify volume [1.1] 


IFG0551N 
IFGOSS4A (IFGOI94A) 
IFGOS52B 
Tape output — rewrite 
volume label, new vodume 
IFGOSS2N, invalid tape 
IFGOSS4) (IFGO194J), 
NL/BLP jase expiration date 
(R 1424) meenge [1.1] 
IFGOSSST (IFGOI9ST). | 
check pasword | 1.3] 
NSLEHDRO 


(FG0sS52D 
Tape output — write 


HDR | label. new 
volume 


IFGO552N, return (R 1424) 
1FGOS 54), return (R 1424) 


User label routine 


IFGOS52F 


Tape output - write 
HDR 2 and user labels 


EXcCP 
being 
wed 


lavalid 


1FGOS52B 


IFGOSS2D 


LFGOS SOP (240) [5.1] 


IPGOS52N, valid 


User label routine 


IFGOSSIL, EOV 

processing complete, SAM (2.1] 
IFG0554J (1FGO194J) (R 14=48), 
inoue tape attribute mesange [1.1] 


Chart 2.3. EOV Tape Output 


NSLEHDRO 


IFGOS52N 
Recover from 
invalid Lape 


1FG0S5 528, recovery 
successful 
IFGOSS 2F (R 1424), 
recovery successful 


IFGOS 544 (IFGOI94A) 
(R145 16), remount [1.1] 
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IFGOSS 1H 
IFGOSS4A (IFGOI9SA) 
(R 1404) 
IFGOS54B 
DA - repositions for : 
records spenning volumes 
IFG0SS1H 


IFGOSS iL. processing 
complete-retura to caller 


IFGOSSAL, user label 1FGOSS4A (1FGO194A) 


return 
1FG02021, SMF 


IF GOSSOP (245) | 5.1) 
seturn 


IFGOSS3P 
DA input - read 


Fl D6CB 


IFG05S2X. EOD 


1FG05$ 38 (IFCO202H). 
SMF (3.2] 

IFGOSS4A (IFGOI94A). 
(R1L4™ }, mound verily 
new volume [1.1] 
1ECOSSOP (1751 [5.1] 


IFGOSS4L 
DA input — reads 


weer header and 
trailer labels 


IFGOSS 
(FGOSST (IFGOI9ST), password a 
checked IFG055 3Z 
IFGOSS4A (IFCO(94A), new 
volume mounted /verified 
IFGOSS3X 
DA input - budd 
new DEB 
IFGOSS4L, recurn IFGQSS5OP (199) [5.1] 
IFGOS53Z 
DA input - final 
IFGOSSIL. processing 
complete [2.2] 
IFGOS54L. process weer 
labets 


Chart 2.4. EOV Direct Access, Input and Output 


IFGOSSOP (171. 218) [5.1] 
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1FGO2021 


1FGOSS1H 


IFGOSS4T, B37 


IFGOSS4N 
DA output - FEOV 


1GGOSS3, DADSM 
extend return 
IFGOSS IH Ri424) 


IFGOSS44 (IFGOIS4A) 


IFGOSS4C (IFGO194C) 
(214658), extead 
(FGOSS4T (R 14216), B37 
ABEND processed 
IFGOSS4Z (R14=4) 


1FGO2021 (R142 12). SMF 
record written 


IFGOSS4P 


DA output - get 
more space 


IFGOSS4N 


IFC OSS5SB 


IFGOS$4Z 
DA voulput - update 


Fi DSCB, current 
volume 


IFGOSSSB 
DA uutpul - write 
SUL on current volume 


IFGOSS4A (R 1428) 


IFGOSS54P (R 14> 12) 


(FGOSSS) 
IFGOSSSH 
DA output — huikd 
new DEB 
IFGO}96M 
IFGOS55J (t1FGOI96P) 
DA output - write 
SUL. new volume 
IFGORROB 
IFGOSS44 (IFCOIS4A), volume 


vould not br mounted 


IFGOS54T 
837 ABEND 
exit routine 


1FG055 3B (1FG0202H), 
SME (3.2) 
1FG0554Z 


e 
IFGOSSOP (187, 
190, 232) [5.1] 


IFGOS53B (1FGO202H) 
(R14=0, 12). SMF [3.2] 
IFGOSS54A (IFGO194A} 
(R14=16), mount new 
volume [1.1] 
(FGOS54C (IFGO194C), 
extend return {1.3] 

TE CASS STL (R 14212), 
space obtained oa 
current volume 
IFGOSSOP (5. 177, 184, 
186, 190) [5.1] 
1GGU05534 DADSM 
extend 


IFGOSS4P (R14=4) 


IFGOSSOP (190) [5.1] 


IFG05542 (R14=4) 


IFGOSSIL. processing 
complete 
IFGOSSOP (199) [5.1] 


IFGOSSSH 


IFGO196M [1.4] 


IFGORROB 


IFGOSS4N 


{FGOSS4?, recovery successful 


RV (B37 ABEND) 


Fors BI” ABEND exit sent 


{FCOSSOP (18S, 190) [5.1] 


From access method 
close executors: 
see IFGO0200W exits 


IFGO552X 
IFGO209E, retry initiated 
by problem determination 


IFGO200Y 


Access method return 


1GC000 20 (1GC01020) 
Close initialization 


IFGO201R, DA output [3.2] 
1FG0202B, NSL tape 


1FG0202C, DA input with 
SUL deferred [3.2] 
1FGO202E (R14=8). DA 
input dacs set [3.2] 
IFGO202F , SL tape input 
on NL tape 

IFGO202J, dummy data 

eet [3.2] 

IFGO202K, busy ACB [3.2] 


IFGO200V 
Read JFCB 


IFGO202L. VSAM data ott. 
of tape volume not ready [3.2] 
IFGO200P (86) (5.1) 


HFGODO0S, ISAM-to-VS AM 
interface 

IFGODO0T (R14=4), VSAM 
date set 

EFGOD00L NTAM data set 


IFGO2002 
SL tape output — 

write TLR I and TLR2 
labels 


1FG0202L, error sn VSAM 
ACB (calls 1IDAOI92P) (3.2) 
1FGO200P (86. 142) [5.1] 


IFGO200W 
Access method 
executor interface 


IFG0202F. no user 
isbels 
IFGO200P (61.62) [5.1] 


IFGO202A 
SUL tape — read of 
write user bel 


IG@GO20I8, QUISAM scan mode, 
variable-length records 
(FO 02024. QISAM scan mode 


IGGON2030, TCAM message 

queue IFGO200¥ 

1GG02035, TCAM ine group IFGO202F , user labels complete 
1FG0202H 

1GG02044, TCAM dummy IFGO200P (63. 64) [5.1] 

data set #GG0002C , TCLOSE 

4602014, 84M, EXCP TSO 

dummy dats net, not DA 1FGO552R EOV 

device 

1GG0201B, 1419/1275 device NSICTRILG 

(OCR/MICR) 

1F6.0201)W. SYSIN or NSIPTREA 

SYSOLT DCB 

1GG020)7, physcal sequential 

data et ona DA device 


1FO02024, BISAM 1FGO202B (1FGO2008. 


1FG0232Y. IFG0556B) 
1GG0202D ISAM common NSL routine interface 
chose executor 
fGGO2021, ISAM fixed 
fength records 
166602034, BDAM 1FG0202H, SMF data 

met activity recording [3.2] 
(FG0202], DISP=LEAVE 
ar REREAD [3.2] 
1FG0232Z. return to 
TCLOSE [4.1] 
NSLCTRIJA(R14=12), 
return to EQV 

NSLCTRI G(R 1478) 


1FGO200Y 
16G0203B, TCAM 
(IBM 3705 device) 1FG0200Z 
MA OGl0Ik Subsystem dats 
set [sce appendix | (1FG0202A 
166,0203M DSORG®CKX, 
READ/WRITE 1FG0202H 
1GG0203) graphics dats set 


IFGOQ202F 
Tape volume 
dupouvon 


1FG0202H, SMF data set 
activity recording [3.2] 
1FG0202) [ 3.2) 


IFGO200P (62, 63, 65) |5.1| 


(IFGO204A) IFGOI94A 
Volume Demounting 


IFGO0202) | 3.2] 


Chart 3.1. Close Initialization and Close Tape 
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IFGORE 
IFGO200VY . 
IFGO2028 


IFGO202E 


IFGO20IR 


DA output - updem 
FLDSCB 


IFG0202F 
EOV callers (R 1424): 
IFGOSS IT, tape 


IFGOS52R, tape 


IFGO202E, No user tabets 


1FGO2008 (88, 89) [5.1] Ret S27, tape 


User's lgbel rowine return 
IFGOSS2X, tape of DA 


(FGO553P, DA 


IFGO202D 
SUL DA output - 
write uses iabals 


IFGO5S4N, DA FEOV 


(FGOSS4P, DA 
IFGO200Y {FCO202E IFGO202H (1FG0S538) 
Write SMF data set 
User's abel rowsine, return User's tahel routine activity records 
IFGORROS 
IFGO202C 1FGO202B (R14=12) [3.1] 2 
SUL DA input - 
reads user labeis (FG0202F (R 14=12) (3.1) 
1FG0202J) (R14=12) 
IFGOR ROS IFGOSSIT [2.3] 
User s label routine 
1GGO020P1, ceva from UFGOSS2R [2.2] a 
DADSM partal release (D) 
([FGO200Y (R14=0, 8) (FGOSS¥V [2.2] 
IFGO20IR 1FGOS52X [2.1] 
IFG0202C 
1FG02021 
Write SMF data 
set activity records (DA) 
IFGORROB 
IFGO200v 
1FGO$S2X [2.1] 
IFCORROB IFGO207B 
1FGOSS 3P [2.4] 
(FG0202H, SMF IFGO202E 
data set activity recording (FGOSS4N [2.4] 
IF(;0202J, Close final (FG0202F 
1FGOSS4P |2.4) 
IFGO200P (87, 90, 234) [5.1] 1FG0202H 
1FG0S54Z [2.4] 
IFGO202) 
Restore ACB DCB to 
pre-open status 
IFGO200Y 
IFGO202K 
Delete DEB 
(FGO200V 
IFGO200Y 
IFGO202L 
Close termination Ps 


Ri TM (delayed ABEND) 


IGCOLOILI, an EOV in progress, 
concatenation, unlike 
characteristics [1.1] 


Return to 
caller 


Chart 3.2. Close Direct Access, Close SMF, and Close Final 
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_— 


IFGOIIIT. VSAM dau 
set 
1FG0232G, SL owtpat 


tape 
1FGO223M (R14=4), SUL 
input tape 

1FGO232S.NL tape. 

SL input tape 

IFG0202B (1FG0232Y). 
NSL tape 

IFGO2332 (R14=4), not 
tape os DA data set 


IFGO232D 
Da ~ Read Fl DSC 


IFGO2 322 (R 1420, 4) 


1FGO230P (132. 133, 142, 143, 
144, 145. 658) (5.1] 


IFG0232) 
DA output - 
write user labels 


1FG02322 


Chart 4.1. TCLOSE 


HFGO232G 


SL output tape - 
wre EOF | label 


1GC0002C 


User sdahel rewtes return 


1FGO2325 
NL.SL tape 
posinoning 


IFGO202B (IF GO0232Y( (R14=4) 
IFGO0232D (R14=0, 4) 
IFGO23U 

LFGO232S (R 14=4) 


1GC0002C 


IFGO232Z 


TCLOSE 
Final 


IFGO230P (122, 123, 140) [5.1] 


User's label renetine 


IFGO230P (124, 141) [5.1] 


IFGO230P (125, 126, 127, 128, 
129, 130, 134, 195, 136, 137, 
138, 139, 140) [5.1] 


R/TM (delayed ABEND) 


1FGO230P (131, 233) (5.1) 


Retum to 
caller 
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IFG0232D 


1FG0232G 


IFG0232M 


IFGO232S 


IFGO232Z 


IGC000JA 


IGCOOOSE 


IFGOSSIF 


IFGOSSIH 


TFUOLYRA 


IFGOV9TR. IFGO20TR. 
IFG.023TR, IFGOSSTR 

Opivwnal trace of cuntrol 
blocks and work areas 


1FGOSSIP 


IFGOSSIR 


1FGOSSIT 


1FG0S52B 


IPFGOSS2R 


1FG0SS2T 


{FG0SS2V 


IFGOSS Jt 


IFG0553P 


IFGOLSRA 


IFGO553X 
1FGO05S3Z 
1FG05548 
IFGOS54N 
IFGOSS4P 
IFGOSS4T 
IFG0SS54Z 


IFGOSSSH 


IFGOI93A = IFGOI9SK «= IFGOI98N 
IFGO193D IFGOI9SN = 1FGO200V 
IFGOIM4A =IFGOI9ST = IFGO200Y 
IFGOI96C = IFGOI9SU = IFG0200Z 
IFGOIS4F = IFGOI96) = LFGO201R 
IFGOI9SB «= IFGOI96L «= IFG0202A 
IFGOI9SC = IFGOL96M = IFGO202E 
IFGOI9SD =IFGOI96N = 1FG0202F 
IFGOI9SG = IFGOI96X = 1FG0202) 


IFGOI9SH 


IFGO190P, 1FGo200P, 
{FGO232P. IFGOSOOF. 
IGGO196M, 14G0206M 
ABEND interpretation 
initialization 


IFGO1998B. 1FG02098. 
1+G0293B. IFGOSS9B 
Write-lo- programmer 


1FGO199D 1FG0209D. 
1FGO239D, IFG0559D 
Trace OrC EOV control 
blocks and work areas 


IFGOL99E 
SAM or 

BDAM 

error 


[FGOS559C 
Trace SAM, DAM 
contol blovks 


IFGOI99D 


IFGOIS9E, IFGO2G9E. 
1FGO239E, (FGOSS9E 
Take caller's DCB 
ABEND eval 
IFGOL94A, retry 
IFGOS52X 


R TA(ABENDI 


, 
Chart 5.1. ABEND Interpretation and Optional Module Trace 


R/TM via ESTAE address established 


by an O/C/EQV or DADSM routine 
IFGORR OF, to ignore a previous 
error in this module and continue 


Return from farce 
close executors 


IFGORROF, to ignore 
& previous error and continue 


IFGORROF. to ignore s 
| Previous error and continuc 
IFGORROA, erro: occurred 
during DADS or RDJFCB 
| processing. of no SDWA 


was passed 


IFGORROA 
Recovery intializahon 
and error recording 


Error occurted IFGOR ROE. error 
during O/C/EOV occurred during 
processing DADSM or RDJFCB 


processing. or no 
SDWA was passed 


- 


IFGORROB 


Force close 


Force clomw executors. 


IDAOCE 17, 1SAM DCB 
upened to prags VSAM 
dala set 

(DAG AI, VSAM 
data set 

1G O20EC, SAM 
subsystem data set 
foot), §4M DAM 
dain wt 

1OG82028, TSAM 

data set 

$GGG2 144, GAM 

dala sei 


IFGORROE 


DEQ release resources 


R TM via tust-tevel 


(FGORROA) ESTAE aM 
address 
IFGORROF 
Second-level 
recovery route 
rR tne ae 
IFLOR ROE \ and continue 


R TM continue ABEND 
terror cannot be ignored) 


Chart 5.2. Recovery and Termination 


R/TM 


Executor returns 
(see exit) 

IFGOTCSA to nore 
previous error in this 
module and continue 
1GC0202L, return 
from Close 


IFGOTCOA 
Task close 


(Data management 


resource mgnaget) 


Task close executors: 


IDA VBPS2, VIO 
IDDWIJRN, VIO data set 
1G6€00020, Close [3.1] 
IGGO202C, ISAM 
(GG01GI3Z, CTAM 
R'TM (caller) 

RTM via ESTAEF address 
established by IF GOTCOA 


IFGOTC4A 
Task close 
recovery routine 


R TM to continue 
ABEND (error cannot 
be ignored) 


IFGOTCSA 
Determine where 
to start again 
after error 


JFGOTCOA, ignore 
error and continue 


IDACATI3, VSAM catalog 
IDAOCLA? VSAM O/C/EOQV 
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DIRECTORY 


€ 


This directory lists the object module names (which in all cases, are the same 
as the microfiche name) of the O/C/EOV modules in alphameric order. The 
object module names are the same as the control section (CSECT) names of 
the O/C/EOV modules. A table showing the object modules included in each 
load module follows the directory. 


The column headings and their meanings are: 


Microfiche or CSECT name: This is the name that appears on the microfiche 
card for each CSECT. 


Alias: If the control section has an alias, the name will appear in this column. 
Note also that all aliases appear in the Microfiche or CSECT name column, 
followed by the real name of the CSECT. 


M.O. Diagram: This column refers to the method of operation (HIPO) 
diagram or diagrams that make reference to the module; all of these diagrams 
appear in Section 2, “Method of Operation.” 


Module Flowchart: This column contains the chart number of the module 
flowchart on which the CSECT can be found; all of these charts appear in 
Section 3, ““Program Organization.” 


Function: This column provides a brief description of the function provided 
by each module. 


Microfiche or M.O. Module 
CSECT Name Alias Diagram Flowchart Function 
Cc EMODVOLI see IFG0553C 
IFGDEBCK 5.3 — Validate DEB 
IFGDEBVR see IFGDEBCK 
IFGOEXO0OA 12,276, 1.3 Installation format-1 
2.7 DSCB-not-found exit 
routine 
IFGORROA 6.2 5.2 Recovery routine 
initialization and error 
recording 
IFGORROB 6.3 5.2 Force Close 
IFGORROE 6.4 5.2 Recovery routine 
resource clean-up and 
final processing 
IFGORROF — a2 Second-level recovery 
routine 
IFGOTCOA IFGOTC4A 6.5 5.2 Task Close (Data 
Management Resource 
Manager) 
IFGOISRA 5.1, 5.2 — O/C/EOV-DADSM 
service routine 
JIFGOI9TR IFGO20TR 5.1 5.1 Optional trace routine 
IFGO23TR 
IFGOSS5TR 
IFGO190P 6.1 5.1 Open ABEND 
3 interpretation, 
as initialization 
IFG0193A . 1.1 1.1 Open initialization 
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Microfiche or 
CSECT Name 


IFGO193C 


IFG0193D 


IFGO193E 


IFGO194A 


IFGO194C 


IFGO194F 


IFG0194J 


IFGOL95A 


IFGO195B 
IFG0195C 


IFGO195D 


IFGO195F 


IFGO195G 


IFGO195H 


IFGO195J 


IFGO195K 


IFGO195N 


IFGOI9ST 


IFGO195U 


IFGOI9SV 


IFG0196J 


IFG0196K 


IFG0196L 


Alias 


OMODVOLI 


IGGOI90A 
IGG0550P 
IFG0553D 
IFGO553E 


IFGO554A 
IFG0204A 


IFG0554C 


IFG0554F 


IFG0204J 
IFG0554J 


IGG0190B 


see IFG0554L 


IFGO555T 


1.4 


1.7 


1.7 


1.8 


1.8 


1.1, 3.1 


1,2 


1.3 


1.3 


Function 


Open, modify volume 1 
label, tape label conflict 


Open/EOV destroy 
standard tape label 


Open/EOV create 
standard tape label 


Open/EOV unit and 
volume selection 


Open/EOV DA volume 
verification 

Open/EOV tape volume 
verification 


O/C/EOV message routine 


Open DA, 
DSCB-to-JFCB merge 


Open, position SL tape 


Open, position NL (BLP) 
tape 
Open, NSL input tape, 


gives control to 
NSLOHDRI 


Open, DA 213 ABEND, 
exit to user 


Open, SL input tape, 
verify HDR] label 


Open, DA input, reads F1 
DSCB 

Open, SL input tape, 
verify HDR2 label 


Open, SL input tape, read 
user labels 


Open/EOV password 
protection, initialization 


Password protection, 
update password record 


Password protection, 
read FI DSCB for 
PASSWORD data set 


Open merge, JFCB to 
DCB 


Open merge, JFCB to 
DCB 
(telecommunications) 


Open merge, calls user’s 
DCB exit routine 


2 


2 


Microfiche or 
CSECT Name 


IFGO196M 


IFGO196N 


IFG01960 


IFGO196P 
IFG0196Q 


IFGO196T 


IFG0196U 


IFG0196V 


IFG0196W 


IFGO196X 


IFGO198N 
IFG0199B 


IFG0199D 


IFGO199E 


IFG0200P 


IFGO200V 


IFGO200W 


IFGO200Y 


IFG0200Z 


IFGO20IR 


IFG0202A 


Alias 


IGGO0190R 


see IFG0555J 


1GG0190S 


IFG0209B 
IFG0239B 
IFG0559B 


IFG0209D 
IFG0239D 
IFG0559D 


IFGO209E 
IFG0239E 
IFGOS559E 


1GG0206M 


1GG0200F 
1GG0200G 


M.O. 


1.8 


1.6 


1.9 


1.9 


1.10 


1.10 


1.10 


6.1 


6.1 


6.1 


6.1 


3.1 


3.1 


3.1, 


3:2 


3.3 


3.2 


3.3 


Module 
Flowchart 


1.4 


1.2 


1.4 


1.4 


1.4 
5.1 


5.1 


asl 


5.1 


3.1 


3.1 


3.1 


3.1 


3.2 


3.1 


Function 


Open merge, DCB to 
JFCB 


Open, SL output tape, 
read existing HDR! label 


Open, NSL output tape, 
gives control to 
NSLOHDRO 


Open, SL output tape, 
check expiration date, 
rewrite volume label 


Open, SL output tape, 
write HDR1 and HDR2 
labels 


Open, SL output tape, 
finish HDR labels, write 
user labels 


Open, gives control to 
access method open 
executors 


Open access method 
executor return, 
JFCB-to-DSCB merge 


Open, Load EXCP 
appendages, journal 
JFCB 


Open final 


ABEND interpretation, 
message routine 


ABEND interpretation, 
control block and work 
area trace routine 


Gives control to 
DCB ABEND exit routin 


Close ABEND 
interpretation, 
initialization 

Close initialization, read 
JFCB 


Gives control to close 
access method executors 


Close access method 
executor return 


Close, SL tape output, 
write TRL1 and TRL2 
labels 


Close, DA output, update 
Fi DSCB 


Close, SUL tape, read or 
write user labels 
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Microfiche or 
CSECT Name 


IFG0202B 


IFG0202C 
IFG0202D 


{FG0202E 
IFG0202F 


IFG0202H 


IFG0202I 
{FG0202J 
IFG0202K 
IFG0202L 
IFG0230P 
IFG0232D 
IFG0232G 
[FG0232J 


IFG0232M 


1FG0232S 
1FG0232Z 
{FGO550P 
IFG0551B 


IFG0551D 
IFGO551F 


IFGO551H 
IFGOS51L 
IFGO0551P 


IFGOS551R 


Alias 


IFGO232Y 
IFGO556B 
1GG0200B 


IFG0553B 


[FGO209L 


IFGO551N 


M.O. 
Diagram 
3.2, 4.2 


3:3 


3.3 


3.3 
3.2 


2.2, 2.4, 
2.6, 2.7, 
3.2333 


2.6, 2.7, 
3.3 


3.4 


3.4 
3.4 
6.1 


4.3 


4.2 


4.3 


4.2 


4.2 


4.1, 4.3 
6.1 


2.1 


2.1 


Zils. 2.2; 
2.6 


del, 2i2, 
2.4, 2.6 


259520), 
2.6, 2.7 


2.4 


2.4 


Module 
Flowchart 


3.1 


3.2 


3.2 


3.2 
3.1 


3.2 


a2 


3.2 


3.2 


3:2 


5.1 


4.1 


4.1 


4.1 


4. 


4.1 


4.] 


5.1 


2.1 


2.1 
2.1 


2.1 


22 


233 


2.3 


Function 


Close, Gives control to 
NSLTRLO or NSLETRL 


Close, SUL DA input, 
reads user labels 


Close, SUL DA output, 
write user labels 


Close DA final 


Close, Tape volume 
disposition 


Close/EOV, SMF record 
builder, tape and DA 


Close/EOV, SMF record 
builder, DA only 


Close, Restore 
ACB/DCB to preopen 
status 


Close, Delete DEB 
Close final 


TCLOSE ABEND 
interpretation, 
initialization 
TCLOSE DA, read FI 
DSCB 


TCLOSE SL output tape, 
write EOF! label 


TCLOSE DA output, 
write user labels 


TCLOSE SUL tape, write 
EOF?2 label and process 
user labels 


TCLOSE NL, SL tape 
positioning 


TCLOSE final 


EOV ABEND 
interpretation, 
initialization 


SYNAD diagnostic 
routine 


EOV message routine 


EOV initialization, 
read JFCB 


EOV initialization, 
determine device type 


SAM EOV executor 


EOV tape output, write 
EOVI1 label 


EOV tape output, write 
EOV2 label 


3 


Microfiche or 
CSECT Name Alias 


IFG0551T IGG0550F 
IFG0552B 

IFG0552D 

IFG0552F 

IFG0552N IGG0550H 
IFG0552R IGG0550B 
IFG0552T 

IFG0552V 

IFG0552X 

IFG0553B see IFG0202H 
IFG0553C EMODVOLI 
IFG0553D see IFG0193D 
IFG0553E see IFGO193E 
IFG0553F 

IFG0553H IGG0550D 
IFG0553P 

IFG0553X 

IFG0553Z 

IFG0554A see IFGO194A 
IFG0554B 

IFG0554C see IFG0194C 
IFG0554F see IFGO194F 
IFG0554J see IFG0194J 
IFG0554L IFGO195F 
IFGO554N 

IFG0554P 

IFG0554T 


M.O. 


2.5 


2.5 


2.5 


2.4 


2.2 


22 


Zed 


Zily 2.2, 
2.6 


2.5 


2.3 


23 


1.3,2.6 


2.7 
2.7 


2.7 


Module 
Flowchart 
2.3 


2.3 


2.3 


2.3 


2.3 


2.2 


2.2 


22 


2.1 


2.2 


pags 


2.4 


2.4 


2.4 


2.4 


2.4 


2.4 
2.4 


2.4 


Function 


EOQV tape output, 
position current volume 


EOV tape output, rewrite 
volume label, new 
volume 


EOV tape output, write 
HDR 1 label, new volume 


EOV tape output, write 
HDR2? and user labels, 
new volume 


EOV tape input recover 
from invalid tape 

EOV tape input, position 
current volume 

EOV tape input, read 
user labels, current 
volume 

EOV tape input, position 
current volume 


EOV,EOD/ 
concatenation 


EOV, modify volume 1 
label, tape label! conflict 


EOV input tape, label! 
processing, new volume 


EOV tape input, label 
processing, new volume 


EOV DA input, read F1 
DSCB 


EOV DA input, build 
new DEB 


EOV DA input, final 


EOV DA, repositions for 
records that span 
volumes 


EOV DA input, 
reads user header 
and trailer labels 


EOV DA output, FEOV 


EOV DA output, get 
more space 


EOV DA output, B37 
ABEND 
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Microfiche or M.O. Module 

CSECT Nam Alias Diagram Flowchart Function 

IFG0554Z oe 2eq 2.4 EOV DA output, update 
Fl DSCB, current volume 

IFG0555B 2.7 2.4 EOV DA output, write 
SUL on current volume 

IFG0555H 2.7 2.4 EOV DA output build 
new DEB 

IFG0555J IFGO196P 1.8, 2.7 2.4 EOV DA output, write 
SUL on new volume 

IFG0555T see IFGO195T 

IFG05S56B see IFG0202B 

IFGO558X 2.3 22 Checkpoint at EOV 
facility 

IGCOOOII IGCOIOII 1.1 1.1 First load of Open, SVC 
19 

1GC0002B 1.1 1.1 OPEN TYPE=J, SVC 22 

1GC0002C 4.1 4.1 First load of TCLOSE, 
SVC 23 

1GC00020 IGCO01020 3.1 3.1 First load of Close, SVC 
20 

IGC0003A 2.1 2.1 FEOV, SVC 31 

IGCOOOSE 2.1 2.1 First load of EOV, SVC 
55 

IGC0006D — — RDJFCB, SVC 64 

IGCOO1OC — — XLATE, SVC 103 

IGCOIOII see IGCOOOII 

IGCO01020 see 1GC00020 

IGCI117 see IFGDEBCK 

IGGOI90A see IFG0193D 

IGG0190B see IFGOI9S5SD 

IGGOI190R see IFG01960 

IGGO0190S see IFGO196W 

1GG0200F see [IFGO200Y 

1GG0200G see [IFGO200Y 

IGG0206M see I[FG0200P 

IGG0550B see IFG0552R 

IGG0550D see IFG0553H 

IGG0550F see [FGO551T 

IGG0550H see IFG0552N 

IGG0550P see IFGO193D 

IGGO193K see appendix JES access method open 
executor 

IGG0196M 6.1 5.1 RDJFCB and open access 
method executor ABEND 
interpretation 
initialization 

IGG0203K see appendix JES access method close 


executor 


Microfiche or 
CSECT Name 


IMDUSRFF 


OMODVOLI 
READPSWD 


SECLOADA 


M.O. Module 
Alias Diagram Flowchart Function 

= _ Formatting appendage 
called by AMDPRDMP 
to format GTF output 

see IFG0193C 

1.7 1.3 Open/EOV password 
protection, asks operator 
for password 

1.7 1.3 Open/EOV password 


protection, initialization 
for Scratch, Rename and 
Checkpoint/Restart 


Load Module-to-Object Module Cross-Reference 


The table that follows shows the O/C/EOV object modules that are 
link-edited into load modules and the names of these load modules. 


Load Module 
IFGORROA 
IFGOTCOA 
IFGOI9RA 
IFGOI9TR 
IFG0190P 
IFGO194A 


IFG0199B 
IGCOOOII 


1GC00020 


IGCOOOSE 


1GC0006D 
IGCO010C 
IMDUSRFF 
EMODVOLI 
OMODVOLI 
READPSWD 
SECLOADA 


Object Modules Contained in This Load Module 
IFGORROA, IFGORROB, IFGORROE, IFGORROF 
IFGOTCOA, IFGOTC4A 

IFGOI9RA 

IFGOI9TR 

IFGO190P, IFG0O200P, IFG0230P, IFGO550P, IGG0196M 


IFG0194A, IFGO194C, IFG0194F, IFG0194J, IFG0193D, IFG0193E, 
IFG0195G 


IFG0199B, IFGO199D, IFG0199E 


IGCOO001T, IGC0002B, IFG0193A, IFGOI9SA, IFG0195B, IFGOL9SC, 
IFG0195D, IFGO554L, IFGO195H, IFG0195J, IFGO19S5K, IFGO195N, 
IFGOI9ST, IFGOI9SU, IFGO195V, IFG0196J, IFGO196K, IFGO196L, 
IFGO196M, IFGO19ON, IFG0O1960, IFG0555J, IFGO196Q, IFGO196T, 
IFGO196U, IFGO196V, IFGO196W, IFG0196X, IFGO198N, IGGO193K 


1GC00020, IFG0200V, IFGO200W, IFGO200Y, IFG0200Z, IFG0201R, 
IFG0202A, IFG0202B, IFG0202C, IFG0202D, IFG0202E, IFG0202F, 
IFG0202H, IFG02021, IFG0202J, IFG0202K, IFG0202L, IGC0002C, 
IFG0232D, IFG0232G, IFG0232J, IFG0232M, IFG0232S, IFG0232Z. 
1GG0203K 


IGCOOOSE. IGC0003A, IFG0551B, IFG0551D, IFGOS51F, IFGO551H. 
IFGO551L. IFG0551P, IFGO551R, IFGO551T, IFG0O552B, IFG0552D, 
IFG0552F, IFGO552N, IFGO552R, IFG0552T, IFG0O552V, IFG0552x, 
IFGO553F, IFG0O553H, IFG0553P, IFG0553X, IFG0553Z, IFG0O554B, 
IFGOS554N, IFG0O554P, IFG0554T, IFG0554Z, IFGO555H, IFGO555B 


IGC0006D 
1IGC0010C 
IMDUSRFF 
IFG0553C 
IFGO0193C 
READPSWD 
SECLOADA 
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DATA AREAS 


Control Block Activity 


This section provides reference information about the data areas used by the 
O/C/EOV routines. Tables are included that show which of the O/C/EOV 
object modules modify the major control blocks. These tables can be used to 
determine which modules may be causing invalid information to be put in the 


control blocks. 


This section also includes illustrations showing the relationships among the 
work areas used by the O/C/EOV routines. This information can be used to 
locate these work areas in storage dumps. 


Several of the key internal control blocks and key fields of control blocks are 
included here for reference. This section also lists the data areas and control 
blocks used by the O/C/EOV routine to be found in OS/VS2 System 
Programming Library: Debugging Handbook and in the OS/VS2 Data Areas 


microfiche. 


The tables that follow provide reference information concerning which fields 
of major system control blocks are modified by the O/C/EOV routines. A 
table is provided for each of the following control blocks: 


Acronym 
ACB 
DCB 
DEB 
DEBX 
DSAB 
DSCB 
FL lxxxxx 


FL2xxxxx 


JFCB 
TIOT 
UCB 
VOLxxxxx 


Common name of the data area 
access method control block 
data control block 

data extent block 

DEB extension 

data set association block 
data set control block 


the first data set label on a standard (SL or AL) labeled magnetic 
tape 


the second data set label on a standard (JL or AL) labeled 
magnetic tape 


job file control block 
task input/output table 
unit control block 


volume label, magnetic tape and direct access devices 


All of these control blocks appear in OS/VS2 System Programming Library: 
Debugging Handbook. 


For each of the control blocks in the list, the fields modified by an 
O/C/EOV module are listed, followed by the object module name of the 
module or modules that modify the field. 


Note that the smallest field in the list is a single byte; if a single bit is 
modified, the byte of which it is a part is listed. For example, the ACBVSAM 
bit of the ACB does not appear; instead, the ACBAMETH field, of which 
ACBVSAM is a single bit, appears. 


Data Areas 143 


ACB—Access Method Control Block 


DCB—Data Control Block 
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Field Name 
ACBAMETH 
ACBBLKSZ 
ACBCCTYP 
ACBDEB 
ACBERFLG 


ACBINFL 
ACBLRECL 
ACBOFLGS 


Field Name 
DCBBFTEK 
DCBBLKCT 


DCBBLKSI 
DCBBUFNO 
DCBBUFOF 
DCBINDI 
DCBCIND2 
DCBDDNAM 
DCBDEBAD 
DCBDEVT 
DCBDIRCT 
DCBDSORG 


DCBDVTBL 
DCBFDAD 
DCBHIARC 
DCBHO 
DCBHI 
DCBIFLG 
DCBIFLGS 


DCBIOBA 
DCBIOBAD 
DCBKEYCN 
DCBKEYLE 
DCBLRECL 
DCBMACR 
DCBNCRHI 
DCBOFFSR 
DCBOFFSW 


Module(s) That Modify the Field 
IFG0193A, IGCOOOII 
IFGO196V, IFG0202K 
IFGO196V 

IGG0193K 


IFGO193A, IFGO200V, IGCOOOII, IGC0002B, IGC00020, IGC0002C, 
IGC0003A, IGCOO0SE 


IGCOO01I 
IFG0O196V, IFG0202K 
IFGO193A, IFGO196V, IFGO200V 


Module(s) That Modify the Field 
IFG0196J, IFGO196M 


IFGO195B, IFGO195C, IFGO195H, IFG0232S, IFG0552R, IFG0552V, 
IFGO553F 


IFG0196J, IFGO196K, IFGO196L 

IFG0196J 

IFG0196J 

IFG0232G, IFGO551L, IFGO554T, IGC0002C, IGCOOOSE 
IFGO198N, IFG0551B, IFGO551L, IFG0554T, [IGC0003A, IGCOOOSE 
IFGORROB, [FGOI9RA, IFG0202K 

IFG0555H, IGCOOOIT, IGC0002B 

IFG0196J, IFG0O202K, IFGO551L 

IFGO195A, IFGO200Y 


IFGOI9RA, IFG0O193A, IFGO194A, IFGO194C, IFGO195A, IFGO196L, 
IFGOS55H 


IFG0196J, IFG0202K, IFGOS51L 

IFG0202E, IFG0232D, IFG0232Z, IFG0553Z, IFGO555H 
IFGORROB, IFG0202J 

IFG0196J, IFGO196M, [FG0202J 

IFG0196J, IFGO196M, IFG0202J 

IFGORROB, IFG0202K 


IFG0193D, IFG0193E, IFGO196N, [FG0196Q, IFG0O196T, IFGO196U, 
IFGO200Y, IFG0232S, IFG0551B, IFGOSS1F, IFGO551L, IFG0552X, 
IGCOOOII, IGC0002B 


IFGO551B, IFGO551L, IGCOQ003A 
IFG0553X, IFG0553Z, IFGO554B 
IFGO551L 

IFG0196J 

IFG0196J, IFGO196K, IFG0O196L 
IFGORROB, IFG0202K 

IFG0196J 

IFGO0196X, IFGO198N 
IFG0196X, IFGO0198N 


DEB—Data Extent Block 


DCB—Data Control Block 


Field Name 
DCBOFLGS 


DCBOPTCD 
DCBQSWS 
DCBRECAD 
DCBRECFM 
DCBTIOT 
DCBTRBAL 
DCBWCPO 
DCBUSASI 


Field Name 
DEBAPPAD 
DEBDCBAD 


DEBDEBAD 
DEBDEBID 
DEBDVMOD 
DEBFLGS| 


DEBLNGTH 
DEBNMEXT 
DEBNMSUB 
DEBNMTRK 
DEBOFLGS 


DEBOPATB 
DEBPROTG 
DEBSTRCC 
DEBSUCBA 
DEBTCBAD 
DEBUCBAD 
DEBVOLNM 
DEBVOLSQ 


Modules(s) That Modify the Field 


IFGOI9RA, IFG0193A, IFGO195D, IFG0195G, IFGO19SN, IFG0196L, 
IFG01960, IFGO196U, IFGO196W, IFGO198N, IFGO199E, IFG0200V, 
IFGO200Y, IFG0202A, IFG0202C, IFG0202D, IFG0202K, IFG0232J, 
IFG0323M, IFG0232S, IFG0232Z, IFGOSS1F, IFGO551H, IFGO551L, 
IFGO551R, IFGO551T, IFGO552F, IFG0552R, IFG0552T, IFG0553F, 
IFG0553H, IFG0553Z, IFGO554L, IFG0554P, IFG0O554T, IFG0554Z, 
IFGO555B, IFG0555J, IGCO001T, IGC0002B, IGC0002C, 1GC00020, 
IGC0003A, IGCOOOSE 


IFGORROB, IFGO196L, IFG0202J 

IFGO198N, IFG0202J 

IFGO551L, IFGO554T, IGCO003A 

IFGORROB, IFG0195K, IFG0196K, IFGOI96L, IFG0202J, IFG0O552F 
1GC00011, IGC0Q002B 

IFGO551L 

IFGO0551L 

IFG0196J, IFGO196M, IFG0202J 


Module(s) That Modify the Field 
IFG0553X, IFGO555H, 1IGG0193K : 


IFG0232G, IFG0232S, IFG0232Z, IFGO551F, IFGOS552F, IFG0552X, 
IFG0553H, IFG0553X, IFG0553Z, IFG0O554B, IFG0554T, IFGOS55H, 
IGC0002C, IGG0193K 


IFG0553X, IFG0554B, IFGO555A, IGG0O193K 
1GG0193K 
IFG0552B, IFG0553X, IFG0554B, IFG0555H 


IFGO195T, IFGO196W, IFGO200W, IFG0552B, IFG0552X, IFG0553F, 
IFGO554P 


1GG0193K 

IFGOS51F, IGCO0011, 1GC0002B, IGC00020, IGG0193K 
1FG0196X 

IFG0553X, IFGO555H 


IFG0196W, IFG0196X, IFG0232Z, IFG0O552X, IFG0553X, IGCO0002C, 
IGGO0193K 


1GG0193K 

IGGO0193K 

IFG0553X, IFGO555H 

IFG0S552X 

IFG0553X, 1GG0193K 

IFG0554B, IGC00020, IGG0193K 

IFG0553X 

IFGOS552F, IFGO552X, IFG0O553X, IFG0O554B 
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DEBX—DEB Extension 


Field Name 
DEBXDBPR 
DEBXDCBM 
DEBXDSAB 
DEBXDSOI 
DEBXFLGI! 


DEBXLNGH 
DEBXMCFI 


DSAB—Data Set Association Block 


Field Name 
DSABFLG2 
DSABFLG4 


DSABOPEN 
DSABPTTR 


Module(s) That Modify the Field 

IFG0196W, IFG0S553X, IFG0554B, IFGO555H 
IFGO196W 

IFGO193A, IFGO552V, IFG0552X 

IFGO193A, IFG0194C 


IFGOTCOA, IFG0232G, IFG0232S, IFG0232Z, IFGOS51F, IFGO552F, 
IFG0552X, IFG0553H, IFG0553X, IFG0553Z, IFGO554T, IFGO555H, 
IGC0002C 


IFGO193A 
IFGO193A 


Module(s) That Modify the Field 
IFG0196M, IFGO198N, IFGO552V, IFG0552X 


IFG0193D, IFGO194A, IFGO194C, IFGO19SB, IFGOI9SK, IFG0196Q, 
IFG0196T, IFGO196V, IFGO551R, IFG0552B, IFG0O552X, IFG0O553F, 
IGC0002B 


IFGO198N, IFG0552V, IFG0552X 
IFGOI9SU, IFGOI9SV 


DSCB—Format-1 Data Set Control Block 
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Field Name 
DSIREFD 
DSIDSCHA 
DSCCREDT 
DSCDSIND 
DSCEXPDT 
DSCEXTYP 
DSCEXTZ 


DSCFILSR 
DSCFILTY 
DSCFMTID 


DSCKEYL 
DSCLRECL 
DSCLSTAR 


DSCNEXT 


DSCOPTCD 
DSCRECFM 
DSCRKP 

DSCSCALO 
DSCTRBAL 


Module(s) That Modify the Field 

IFGO194C 

IFGO194C 

IFGOI9SA 

IFG0194C, IFG0196W, IFGO0200Y ,[FG0232D,IFG0554N,IFG0544Z 
IFGO19SA 

IFG0553X, IFG0O555H 


IFGO194C, IFG0196W, IFG0200V, IFG0201R, IFG0232D, IFG0553P, 
IFGOSS4N, IFGO554T, IFG0554Z 


IFGO193D, IFGO196N 
IFGO194C, IFGO196W, IFGO553X 


[FG0194C, IFGO196W, IFGO200V, IFG0201R, IFG0O232D, IFG0553P, 
IFGOS54N, IFGO554T, IFG0554Z 


IFG0O196W 
IFGO196W 


IFGOI95A, IFGO200Y, IFG0202E, IFG0232D, IFGO554N, IFGO0554T, 
IFG0554Z 


IFG0194C, IFGO554P 


IFGO196W 
IFG0O196W 
IFGO196W 
IFG0194C 
IFG0554Z 


Field Name 
FLIBLKCT 
FLICREDT 
FLIEXPDT 
FLIFILSQ 
FLIFILSR 
FLIFSEC 


FLIGNO 
FLIID 


FL1ILABI 


FLINO 
FLISYSCD 
FLIVNG 
FLIVOLSQ 


Field Name 
FL2BLKA 
FL2BLKL 
FL2BUFOF 
FL2CNTRL 
FL2DEN 
FL2FILP 
FL2JOBD 
FL2JSSP 
FL2LRECL 
FL2RECFM 
FL2STEPD 
FL2TRTCH 


JFCB—Job File Control Block 


Field Name 
JFCBCRDT 
JFCBCTRI 
JFCBDSNM 
JFCBELNM 
JFCBEXAD 
JFCBFLGI 
JFCBFLG2 
JFCBFLSQ 
JFCBFOFL 


FL1—First Standard Data Set Label on a Magnetic Tape 


Module(s) That Modify the Field 

IFG0196T, IFG0O200Z, IFG0232G, IFG0552D 
IFGO196T, IFG0200Z, IFG0232G, IFGO551P, IFGO552D 
IFG0196T, IFG0200Z, IFG0232G, IFG0551P, IFG0552D 
IFGO196T, IFG0200Z, IFG0232G, IFG0551P, IFG0552D 
IFG0196T, IFGO200Z, IFG0232G, IFG0551P, IFG0552D 


IFGO196N, IFGO196T, IFG0200Z, IFG0232G, IFG0551P, 


IFG0552D 
IFGO196T, IFG0O200Z, IFG0232G, IFG0551P, IFG0552D 


IFGO552B, 


IFG0193D, IFGO195H, IFG0196Q, IFG0O196T, IFG0200Z, IFG0232G, 


IFG0551P, IFG0552B, IFG0552D 


IFGO196T, IFG0200Z, IFG0232G, IFG0232M, IFGO0551P, 


IFG0552D, IFG0O552F 


IFGO551R, 


IFGO196T, IFG0200Z, IFG0232G, IFG0551P, IFG0551R, IFGO552F 


IFG0196T, IFG0200Z, IFG0232G, IFG0551P, IFG0552D 
IFGO196T, IFGO200Z, IFG0232G, IFG0551P, IFG0552D 
IFGO196T, IFG0200Z, IFG0232G, IFG0551P, IFG0552D 


FL2—Second Standard Data Set Label on a Magnetic Tape 


Module(s) That Modify the Field 

IFGO196T, IFGO200Z 

IFGO196T, IFG0200Z, IFG0232G, IFG0O551R, IFG0552F 
IFG0196T, IFG0O200Z, IFG0232M, IFG0551R, IFG0552F 
IFGO196T, IFG0200Z, IFG0232M, IFG0551R, IFGO552F 
IFGO196T, IFG0O200Z, IFG0232G, IFGO551R, IFGO552F 
IFGO196T, IFG0200Z, IFG0232G, IFG0O551R, IFGO552F 
IFMO196T, IFG0O200Z, IFG0232M, IFGO551R, IFG0552F 
IFGO196T, IFG0O200Z, IFG0232M, IFG0551R, IFGO552F 
IFGO196T, IFG0O200Z, IFG0232G, IFG0551R, IFGO552F 
IFGO196T, IFG0O200Z, IFG0232G, IFG0551R, IFG0552F 
IFG0196T, IFGO200Z, IFG0232M, IFG0551R, IFG0552F 


IFG0196T, IFG0200Z, IFG0232G, IFG0232M, IFGO0551R, IFGO552F 


Module(s) That Modify the Field 

IFGO19SA 

IFGO195A 

IFG0194C, IFG0553X, IFG0554P, IFG0555H 
IFG05S53X 

1GC0002B 

IFG0193D, IFG0O194F, IGC0002B 

IFG0193A, IFGO194A, IFG0196X, IFGO198N 
IFG0193A, IFG0553D, IFG0553F 
IFG0196M, IFG0196T, IFG0200Z 


el 
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JFCB—Job File Control Block 


Field Name 


JFCBFTEK 
JFCBINDI 
JFCBIND2 
JFCBLGTH 


JFCBLKSI 
JFCBLTYP 
JFCBMASK 


JFCBNVOL 
JFCBOTTR 
JFCBSQTY 
JFCBTSDM 
JFCBUFOF 
JFCBVLSQ 
JFCBVOLS 
JFCBXPDT 
JFCCPRI 
JFCDEN 
JFCDSORG 
JFCDSRG2 
JFCFLGSI 
JFCFUNC 
JFCINTVL 
JFCIPLTX 
JFCKEYLE 
JFCLRECL 
JFCOPTCD 
JFCRECFM 
JFCRKP 
JFCSOWA 
JFCTRKBL 
JFCTRTCH 


TIOT—Task Input/Output Table 
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Field Name 
TIOELINK 
TIOERLOC 
TIOESTTB 


Module(s) That Modify the Field 


IFGO196M 
IFGO193A, IFG0553X 
IFGO194A, IFGO195K, IFGO196N, IFGO196X 


IFGOI9RA, IFGO194A, IFGO551H, IFG0552N, IFG0553X, IFGO555H, 
1GC0002C 


IFGOI9SA, IFGO195K, IFGO196V 
IFG0553X 


IFG0193A, IFG0193D, IFGO193E, IFG0194A, IFG0194C, IFG0194F, 
IFGOI95A, IFGO195K, IFG0196J, IFGO196K, IFGO196L, IFG0O196M, 
IFGOI96N, IFG0196V, IFGO196W, IFG0196X, IFGO198N, IFGO199E, 
IFG0200V, IFG0202K, IFG0553P, IFG0553Z, IFG0554Z 


IFG0193A, IFG0194A, IGC0002B 
IFGOI95A 

IFG0554P 

IFGO194A, IFGO195A 

IFGO195K, IFG0196M 

IFGO195B, IFG0196X 

IFG0194A, IFG01960, IFGO199E, IGC0002B 
IFG0195A, IFG0195H 

IFGO196M 

IFG0194F 

IFGO193A, IFGO195A 

IFG0193A, IFG0200V, IFG0202K, IFG0551F 
IFG0196X, IFGO551F, IFGO551L 

IFGO196L 

IFG0196M, IFG0553X 

IFGO196L 

IFGO195A, IFGO196W 

IFGO195A, IFGO195K, IFG0196V 

IFGO194F, IFGO195A 

IFG0195A, IFGO195K, IFGO196L, IFG0196V 
IFGO195A 

IFGO196M 

IFGO195A 

IFGO195K 


Module(s) That Modify the Field 
IFG0202E 

IFG0232D 

IFG0194C, IFG0O194F 


c 


UCB—Unit Control Block 


Volume Label 


Data Area Layouts 


Field Name Module(s) That Modify the Field 


UCBDMCT _ IFGO0193C, IFO194F, IFG0O195B, IFG0195D, IFG01960, IFGO551T, 
IFG0552B, IFG0552V, IFG0553C, IFG0553H, IGCOOOSE 


UCBERADR _ IFGORROB, IFG0193A, IFG0202J 

UCBFSCT IFGORROB, IFGO194F, IFG0194J, IFG0195B, IFGO195C, 
UCBFSEQ IFGORROB, IFG0194F, IFG0194J, IFGO195B, IFG0195C, IFG0202F 
UCBFSER IFG0194C, IFGO194F, IFG0194J 

UCBSTAB IFG0193D, IFGO193E, IFG0O194C, IFG0194F, IFG0194J 

UCBSTAT IFG0193D, IFGO193E, IFGO194F 


UCBVOLI IFGO194A, IFG0O194C, IFGO194F, IFG0194J, IFGO195D, IFG0553H, 
IGC0002B 


UCBVTOC IFG0194C 
UCBWGT IFGO194F, IFG0194J, IGG0202F, IFGO551H, IFG0551T, IFGO552V 


Field Name Module(s) That Modify the Field 

VOLLABI IFG0193E, IFG0196Q, IFG0552B 
VOLOWNER  IFGO0I193E 

VOLSEC IFG0193E, IFG0196Q, IFG0552B 
VOLSERNO __ IFGO0193E, IFG0194F, IFG0196Q, IFG0552B 


The illustrations that follow establish the relationships among the work areas 
used by O/C/EOV. 


Data Area Relationships During O/C /EOV Processing 


Several work areas may be obtained, based on the type of request being 
processed by the O/C/EOV routines. These work areas are obtained 
separately and at different times and may not, therefore, be contiguous in 
virtual storage. Figure 3 is intended to help you find the work areas obtained 
during an O/C/EOV operation in a storage dump. In the example in Figure 
3, two DCBs are being opened. The first work area obtained, whose ID is 
O/C, contains the base prefix and the only extended prefix obtained for the 
OPEN request. This first work area contains an extended prefix, a WTG table 
(the only WTG table obtained for this OPEN request), a copy of the Open 
parameter list, a recovery routine audit trail, and the storage used by the 
O/C/EOV-DADSM service routine, IFGO19RA, to synchronize parallel 
processing. Figure 4 illustrates some of the key information included in this 
work area. 


As processing of the Open request progresses, an O/C/EOV main work area 
and an area into which the DCB can be copied is obtained for each DCB. The 
IDs of these areas (which appears as the first four characters of the prefix of 
each work area) is OPWA and DCB for the copy of the DCB. Each block of 
storage obtained includes a prefix. 


‘Next, the Open routines obtain a work area used to build an extended channel 


program for reading a format-1 DSCB (the ID is CCWS), and an area to be 
used for reading and writing JFCBs from the SWA using the QMNGRIO 
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T ai channel PDWA 
program prefix 
| work area | — (A) 
Problem 
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LJ 


CCWS 
Copy of prefix 
DCB ) QMGR 
prefix 


Figure 3. Work Areas Obtained and the Chain Structure: Two DCBs Being Opened in Parallel 


interface (ID is QMGR), and finally an abnormal termination condition is 
encountered and an area is obtained for the problem determination routines 
to gather diagnostic information (ID is PDWA). A list of all of the work area 
and control block IDs that are obtained during O/C/EOV processing appears 
in the section “ABEND Error Recording From the O/C/EOV System 
Recovery Routines.” 


Using a Work Area Prefix to Find Another Related Work Area 


During the initialization of a multiple Open or Close request— initiated, for 
example by OPEN (DCB1,,DCB2(OUTPUT))—main work areas and 
prefixes are obtained to process each DCB and ACB. These work areas are 
used to read and write labels, to contain the JFCB, etc. The contents of the 
work area is provided in OS/VS2 Data Areas. 


The prefix for the first work area obtained is called the initial or base prefix. 
No main work area is obtained with this prefix if the request is being 
processed by the Open or Close routines. For EOV requests, a main work 
area is obtained. For an Open or Close request, this work area contains 
control information used by the Open or Close routines for all the DCBs and 
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Base 
16(10) prefix 
32(20) 
48(30) 
64(40) Register save area 
Extended 
80(50) prefix 
96(60) t ; 
recovery routine 
aoe) t ter list t ti tQMNGRIO 
user parameter lis common routine 
128(80) 
WTO prefix ID of cbject module currently in control EPA of this module 
144(90) 
WTG 
table 
160(A0) * 
ID, EPA, twork area for DCB, ID, EPA, twork 
176(BO) 7 
area for DCB, Last (dummy) WTG table entry 
Copy 
of user 


parameter 
i eee list in 
192(CO) protected 


208(D0) audit 
trail, 
common 
; routine 
| | work area, 
and trace 


buffer 
*There is an 8-byte entry in the WTG table for each DCB/ACB being processed. The 8 bytes include the last two 
bytes of the module name of the next O/C/EOV module that is to process the DCB, the entry point address of 
that module, and the address of the main work area associated with the DCB/ACB. 


Figure 4. Contents of the Initial Work Area Obtained to Process the Two DCBs in Figure 3 


ACBs included in the request. Each related work area obtained subsequently 
is chained, forward and backward, from the initial prefix. 


The WTG table can also be used to locate the main work area associated with 
an ACB or DCB. One WTG table is obtained for each OPEN or CLOSE 
macro issued. This table is used to transfer control during Open and Close 
processing, as described in ‘“WTG Table” in this section. The WTG table also 
contains addresses of the main work areas used for processing each DCB or 
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ACB. Beginning at +32, the WTG table contains an 8-byte entry for each 

DCB or ACB being processed. The first 5 bytes of each entry contains a 
2-byte module ID and a 3-byte entry point address of the next module that is 2? 
to process the DCB/ACB. The last 3 bytes of each 8-byte entry contains the : 
address of the work area associated with the DCB or ACB. Additional 

chaining is done from the extended prefix to the WTG table. Field 

IECWTGTB at +104 from the beginning of the prefix contains the address of 

the WTG table. This field follows an 18-word register save area. 


See also ‘‘Register Usage”’ in the ‘‘Diagnostic Aids’”’ section for the registers 
that contain addresses relating to these data areas. 


Only one DCB/ACRB is processed at a time by the EOV component. 
Otherwise, the data area relationships mentioned in the foregoing descriptions 
of the Open and Close work areas apply. 


Copying the DCB/ACB 


To avert malicious and unintentional access to the DCB/ACB during 
O/C/EOV processing, the DCB/ACB and the parameter list containing the 
DCB/ACB addresses, passed by the caller of O/C/EOV, are copied into 
protected storage (virtual storage with a system protection key, key 0 through 
7). 


The DCB/ACB copy can be located using the DXPDCBAD field of the main 
O/C/EOV work area associated with the DCB/ACB. The copy of the 
parameter list can be located using the IECUPRML field of the extended 
prefix. 


All modifications to the DCB/ ACB (for example, the JFCB-to-DCB merge 
during Open, the restoring of the DCB to preopen status during Close, and » 
the updating of the DCBBLKCT field during EOV processing) are made to 

the copy. Before giving control to a user’s routine during O/C/EOV 

processing (for example, to the user’s DCB, ACB, or EOV exit routine) and 

before returning control at the conclusion of O/C/EOV processing, the 

DCB/ACB is copied back to the user’s storage. 


Internal Data Areas and Key Fields 


The data area layouts and control block presentations that follow are for key 
data areas and fields of data areas that are important in O/C/EOV 
processing. They are presented in alphameric order. 
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DCBs and ACBs Processed 


The table that follows shows the two types of DCBs and the three types of 
ACBS processed by O/C/EOV and how each is identified. 


Control 
Block 
Name 


VSAM ACB 
VTAM ACB 


Type of Data Set Control Block 

Represented by Indicators Used to 

Control Block Identify the Control Block 

User VSAM data set ACBAMETH field set to X‘11’ 
User VTAM data set JFCB has been read in 


ACBAMETH field set to X‘60' 


SYSIN/SYSOUT  SYSIN/SYSOUT data set TIOELINK field in TIOT contains 


DCB 


ACB 


Unspooled 


spooled by a job entry X‘04’ for input or X‘02’ for 
subsystem output 
SYSIN/SYSOUT  SYSIN/SYSOUT data set, TIOELINK field in TIOT contains 
created from spooled X‘04 for input or X‘02’ for 
DCB output 
User data set None of the above indicators 
present 


DCB 


DCBOFLGS or ACBOFLGS Field 


This 1-byte field is located in the foundation segment of the DCB or ACB. 
The field contains input and output information necessary for the Open, 
Close, and EOV operations to process the DCB or ACB. The names of the 
O/C/EOV object modules that modify the OFLGS field are shown earlier in 
the “‘Control Block Activity” section. 


Description of DCBOFLGS or ACBOFLGS Field 


DEB Table 


Bit 


Meaning 
Last I/O operation was a WRITE. 


Last I/O operation was a READ or POINT. For direct-access devices, the 
track balance field is invalid. 


Last I/O operation was a READ backward. 

Concatenation of data sets in process. 

An Open operation has been successfully completed. 

A processing program has indicated a concatenation of unlike attributes. 
A tapemark has been read. 


An Open, Close, or EOV routine took a user exit and the user's processing 
has not been completed. (This bit setting prevents other Open, Close, and 
EOV routiness from processing this DCB or ACB.) 


An Open, Close, or EOV routine took a user exit and the user's processing 
has been completed. 


This DCB or ACB is to be processed by the Open, Close, or EOV operation 
that sets this bit to 1. 


A DEB table is obtained and updated for each job step by the DEB Validity 
Checking routine. (For a description of the routine, see Diagram 5.3.) The 
DEB table is located in protected storage in subpool 255, key 0, and contains 
the address of each DEB in the job step. 
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When the address of a DEB is added to the DEB table, the high-order byte of 
the address is set to zero. When a DEB pointer is deleted or purged from the 
DEB table, the first two bytes are set to the offset of the next empty entry 
and the last two bytes are set to binary ones. 


2 


The DEB Validity Checking routine gets 80 bytes of storage for the DEB 
table and adds DEB addresses to the table until it is full. Then the DEB 
Validity Checking routine gets storage space equal to the current table, plus 
80 bytes, and copies the DEB table to the new area. The maximum DEB table 
size allowed is 32,760 bytes. When the maximum size is exceeded, the job 
step will be terminated. 


TCB JSCB 


TCBJSCB 


Length of DEB | Offset of first 
empty entry 


Control field 


Pointer to second DEB 


DEBTB First empty 


entry 


Offset of next 
empty entry 


9 


Offset of next 
empty entry 


Second empty 
entry 


X‘FFFF’ 
+16 


Pointer to first DEB 


Unused entries 


DEBXDCBM (DEB Extension Mask) Field 
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Each DEB and its extension is associated with a DCB or ACB. The DEB 
contains information about the physical characteristics of the data set and 
other information that is being used by the control program. 


The DEBXDCBM field, located in the DEB extension, is a DCB or ACB 
modification mask, which is built by the Open merge routines to indicate 
which DCB or ACB fields are modified during merging of the JFCB fields 
into the DCB. One bit corresponds to one or more fields. If a DCB or ACR 
field is modified, the Open merge function sets the bit associated with the 
field to 1. The mask is then stored in the DEB extension. 


The Close final function examines the DEBXDCBM field to determine which 
fields of the DCB or ACB are to be restored to the status they had before 
they were processed by the Open merge function. (Close restores the fields 
whose corresponding bits are set to 1.) 


et 


JFCBMASK Field 


The three columns of the following list show the bit definition of each byte of 
the DEBXDCBM field and which fields in the DCB may be modified. 


Description of DEBDCBMK Field 
Byte Bit Field(s) Modified 
DEBXDCBM+0 XXXX XXxx Not used 
DEBXDCBM+1 Mie: aks Not used 
| er DCBIFLG 
vols. eiee DCBNTM,DCBPC]I 
ae eee DCBCYLOF 
bzs DCBRKP,DCBRESER 
ey DCBDBUFN 


sels DCBNCP(ISAM) 
wal DCBEROPT 
DEBXDCBM+2 Dey. sees DCBLRECL 
AMss.. asses DCBLIMCT 
eMac “dese DCBNCP(BSAM) 
oe) ae DCBBLKSI,DSBBUFSI 
Lea DCBOPTCD 
a Live DCBRECFM 
a DCBDEN 
ee | DCBFTEK,DCBBFALN, 
DCBGNCP,DCBBUFMA 
DEBXDCBM+3 | rae DCBBUFL 
.) Pere DCBBUFNO 
ile: Se DCBKEYLE,DCBTRTCH 
wel kes DCBSOWA 
Live DCBCPRI,DCBTHRES 
A DCBINTVL 
a DCBLRECL 
sel DCBDSORG 


A JFCB is built in the scheduler work area (SWA) by the scheduler routines 
for each ddname specified in a job step. A JFCB is brought into virtual 
storage when a DCB or ACB with the corresponding ddname is to be 
processed. 


The JFCBMASK field, located in the JFCB, is used by Open, Close, and 
EOV to indicate that a DCB or ACB has been modified, and to flag 
conditions that alter the normal processing of a DCB. 


Open uses the first 4 bytes to indicate which fields in the DCB or ACB are 
modified during the Open operation. One bit corresponds to one field (or 
more than one field if the fields are related). If a field is to be modified, Open 
sets its bit to 1. When the JFCB-to-DSCB merge has been completed, these 4 
bytes of the JFECBMASK field are stored in the DEBXDCBM field of the 
DEB extension. These first 4 bytes of the JECBMASK field are set to zero 
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before the JFCB is copied back to its original location in the SWA. See 
‘“‘DEBXDCBM Field” for more information on this field. 


The Open, Close, and EOV routines use the remaining 4 bytes of the 
JFCBMASK field to signify certain conditions under which the associated 


DCB or ACB is to be processed. 


The first two columns of the following list show each byte of the JECBMASK 
field and each bit used within the byte. The third column shows which 
operations use the bit. The fourth column tells what each bit is used to 


indicate. 


Description of JFCBMASK Field 


Byte 
JFCBMASK+0 


JFCBMASK+1 


JFCBMASK+2 


JFCBMASK+3 


XXXX XXXX 


Used by 


Indicates 


Reserved 


DCBIPLTX field has been modified (TCAM only) 


DCBUFOF field merged from JFCBUFOF field of 
the JFCB for BSAM or QSAM. 


DCBNTM field modified for ISAM. 
DCBPCI field modified for TCAM. 


DCBCYLOF field modified for ISAM. 


DCBRKP field modified for ISAM. 
DCBRESER field modified for TCAM. 


DCBDBUFN field modified for ISAM. 
DCBNCF field modified for ISAM. 
DCBEROPT field modified for ISAM or QSAM. 


DCBLRECL field modified for ISAM or QSAM. 
DCBLIMCT field modified for BDAM. 
DCBNC?P field modified for BSAM. 


DCBBLKSI and DCBBUFSI fields modified for 
TCAM. 


DCBOPTCD field modified. 


DCBRECFM field merged from JFCRECFM field 
of the JFCB. 


DCBDEN field modified. BS 


DCBFTEK and DCBBFALN fields modified, and 
DCBGNCP field merged from JFCNCP field of the 
JFCB. 

DCBBUFMA field modified for TCAM. 


DCBBUFL field modified. 


DCBBUFNO field modified. 


DCBKEYLE field merged from JFCKEYLE field in 
the JFCB, and DCBTRTCH field modified. 


DCBSOWA field merged from JFCSOWA field of 
the JFCB for QTAM. 


,.DCBCPRI field merged from JFCCPRI field of the 
JFCB for QTAM. 


DCBTHRES field modified. for TCAM. 


DCBINTVL field merged from JFCINTVL field in 
the JFCB for QTAM. 


DCBLRECL field merged from JFCLRECL field in 
the JFCB. 


Description of JFCBMASK Field 


Byte 


JFCBMASK+4 


JFCBMASK+5 


JFCBMASK+6 


Bit 
) 

| 

0... 

=) ee 

fel 

| 
bane 
rae 
oe |e 
re | 

Lees 

a 

oa 

eel 
ee 
.00. 
.10. 
11 
X 

Mae, aes 


Used by Indicates 


Open 


Open 


Close 


Open 


DCBDSORG field merged from JFCDSORG field 
of the JFCB. 


JFCB has been modified and is to be written back, 
unless bit 4 of JECBTSDM field is set to |. 
JFCB has been read. 


JFCB has not been modified; however, the Open 
operation assumes, at the end of its processing, that 
the bit is set to 1 and copies the JFCB back to the 
SWA. 


DSCB has been modified and is to be written back. 
Data set being processed is a dummy (null) data set. 
BPAM concatenation. 


Direct access parallel mounting for ISAM or 
BDAM. 


Password required. 


Delayed ABEND pending 

(bit 7 of DCBOFLGS is set 

to zero, or the processing 

program recovered from an ABEND (bit 7 of 
DCBOELGS set to 1). 


Volume sequence number modified by 
DISP=MOD); direct-access recovery volume 


} sequence number set to 0 after DEB built. 


Output magnetic tape label 
conflict. 


IBM standard or American National Standard 
labeled tape required for output magnetic 
tape. 


Nonstandard or nonlabeled tape required for 
output magnetic tape. 


Dual density check required for output 

magnetic tape. 

1100 .... create standard label 

1010 .... destroy standard label or American 
National Standard label 

1110.... change IBM standard label to American 
National Standard or American National Standard 
label to IBM standard label 


Merge during standard label or nonstandard label 
processing to be bypassed after a remount of an 
output tape volume. 


User-label routine issued a CLOSE 
TYPE=T macro instruction or SVC 23. 


User-label routine issued an OPEN macro 
instruction or SVC 19. 


User-label routine issued an SVC 55 
or SVC 31. 


Reserved 
LABEL=(,,,IN) is specified on DD card. This bit is 


set to 1 by the job scheduler to change the open 
operation from INOUT mode to INPUT mode. 
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Transfer Control Table 
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Description of JFCBMASK Field 
Byte Bit Used by Indicates 


wl. 2... Open LABEL=(,,,OUT) is specified on DD card. This bit 
is set to 1 by the job scheduler to change the open 
operation from OUTIN mode to OUTPUT mode. 


Note: Both bits 0 and | are set to | during Open if 
the mode is being overridden. 


0. .... Open A direct-access device with the rotational 
positioning feature is being used. 

1. .... Open The direct-access RPS feature is not being used. 

1 .... Open DISP=NEW is to be changed to DISP=MOD. 


0... Open Search direct is not being used. 
1... Open Search direct is being used. 


.1.. Open, Work areas associated with this DCB or 
Close, ACB are to be written to the GTF data set 
EOV each time control is transferred from one 

O/C/EOV object to another. 


..0. Open Open operation, after it was called, stored a TTR in 
the JFCBOTTR field. 


..1. Open JFCBUFOF field contains, before Open processing 
begins, a buffer offset or invalid information 
resulting from a JFCB-to-JFCB merge. 


...1 Open TTR of the identifier (format-1) DSCB of the first 
volume has been updated in the JECBDSCB field 
by Open and should be updated in the catalog by 
the scheduler at step termination, if the data set is 


cataloged. 
JFCBMASK+7 | Freee Open Another tape volume is to be mounted and/or 
verified during Open. 
XX. .... Open When the open option is OUTINX or EXTEND, 


the JFCDISP flags are saved in these bit positions. 
The JFCDISP flags are restored after the access 
method executors complete processing. 


wX XXXX Reserved 


The transfer control table (a list of module names and their entry point 
addresses) is used to transfer control among the O/C/EOV modules. The 
transfer control table appears at the end of each object module (CSECT) as a 
result of the expansion of the XCTLTABL macro instruction. There are two 
options that can be used in coding the XCTLTABL macro, depending on how 
the module ID is coded in the [D=operand of the macro. If the full, 
8-charcter module ID is coded, the result is shown in “Entry for module B” in 
the illustration below. If only the last two characters of the ID are coded in 
the ID=operand, the result is shown in “Entry for module C’’ below. The first 
option (ID=2-byte object module ID) is used with the IECRES 
LOAD,BRANCH=QUEUED macro. It is used to make it possible to process 
multiple-DCB open and close requests-in parallel (see‘‘Parallel Processing of 
DCBs and ACBs and Overlapping I/O”’). The 8-byte option is used with the 
IECRES LOAD,BRANCH=DIRECT macro. This form is used when 
sequential processing of a single DCB is desired (EOV routines use 
BRANCH=DIRECT). 


| Load module A | 


Full ID of a module that can 
receive control from module A 


Entry for (8 bytes) 
module B 
Entry point address of 
module B* (4 bytes) 
SVC number associated Last two bytes 
with module C in EBCDIC of ID of 
Entry for (3 bytes) module C 
module C 


Cont. Entry point address of 
(2 bytes) module C* (3 bytes) 


Maintenance patch area (5% of 
the size of module A) 


CSECT (object module) name 
of module A (8 bytes) 


Date (month/day/year) of assembly 
of module A (8 bytes) 


Release or PTF number or 
SD code associated with 


module A (6 bytes) Length in bytes of 


object module A (2 bytes) 


*If the object module is not in the same load module as module A, 
this field will contain zeros (an unresolved VCON). 


Both forms of the XCTLTABL macro instruction generate V-type address 
constants (VCONs). These VCONSs contain the entry point address of the 
object module with which the VCON is associated, if the object modules are 
in the same load module. If the object modules are in different load modules, 
the VCON will not be resolved and will contain zeros. When the IECRES 
LOAD macro is issued te transfer control to the service routine, IFGO19RA 
checks to see if the VCON contains an address; if so, control is passed to the 
address in the VCON. If the VCON is unresolved, the service routine initiates 


Data Areas 159 


Where-to-go (WTG) Table 
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a search of the link pack area for the entry point address of the object module 


to receive control. 

If you are modifying the O/C/EOV routines, you should be aware that every 2 
unresolved VCON must have a defined entry point name or alias in the link 
pack area. 


When an OPEN, CLOSE, or EOV macro is issued, one of the first data areas 
obtained by the O/C/EOV routines to process the request is a WTG table. 
This table is used to transfer control among the O/C/EOV and access 
method executor modules. 


WTO prefix 


Name of object module in control 


12(C) 


Entry point address of 
module in control 


Not used 


16(10) 


20( 14) 
Address of initial (base) 
work area prefix 


30(1E) 


Not used 


WTG path field 


32(20) 


ID of next O/C/EOV 
module to process 
this DCB/ACB 


34(22) 


37(25) 


| 
VCON of next Address of O/C/EOV } 
O/C/ EOV module to. |main work area associate 
process this DCB/ACB | with this DCB/ACB 


First WTG 
table entry 


5 bytes 


2-byte ID and 3-byte VCON of 
open or close module to receive 
control from access method counters, 


3 bytes 


Last WTG 
table entry 


Address of work area 
used by IFGOLORA 


The WTG table is preceded by a 4-byte prefix used to specify message length 
and routing and descriptor codes for use when issuing WTO macros to trace 
the flow of control among the O/C/EOV modules (see ‘“‘The Optional 
Module Listing Routine’’). 


The first 8 bytes of the WIG table are used to contain an object module 

(CSECT) ID, which is used by the service routine, IFGO19RA, to determine | 
which routine is to receive control next. The next 4 bytes contain the entry | 
point address of the module named in the preceding field. The address of the 


work area prefix associated with the request is at offset 16 (X‘10’); this prefix 
is used to chain the work areas obtained to process the request (see ‘Data 
Area Layouts” earlier in this section). 


Beginning at offset 32 (X‘20’), the O/C/EOV initialization functions build 
an 8-byte entry for each DCB and ACB being processed as a result of the 
issuance of the OPEN, CLOSE, or EOV macro instruction. These entries are 
constructed in the same order as the Open or Close parameter list. Each of 
the 8-byte WTG table entries contains: 


e The last 2 bytes of the module ID of the O/C/EOV module that is to 
receive control next to process the DCB or ACB represented by this WTG 
table entry. This module ID is selected and moved into the WTG table by 
the module that has completed processing the DCB or ACB. 


e The 3-byte V-type address constant (VCON) of the next module to 
receive control. This VCON will be unresolved (contain zeros) unless the 
object module transferring control is in the same load module as the object 
module receiving control 


e The 3-byte address of the O/C/EOV main work area used to process this 
DCB or ACB. 


Each subsequent O/C/EOV module that receives control modifies the entries 
to again show the next module to receive control to process the DCB or ACB 
represented by each WTG table entry. 


The O/C/EOV modules (but not the access method executors) transfer 
control by issuing the IECRES LOAD macro instruction. The access method 
executors use the XCTL macro to pass control. The IECRES macro 
instruction results in a branch to the O/C/EOV service routine, IFGO19RA. 
Diagram 5.2 describes the processing done by the service routine in 
transferring control. 


The last 8-byte WTG table entry contains a 2-byte module ID and a 3-byte 
V-type address constant (VCON) of the Open or Close module to which the 
access method executors return control, followed by the 3-byte address of the 
work area used by IFGO19RA. Module names in this field will be IFGO196W 
or IFGO200Y or their aliases. This last entry of the WTG table is used only 
by the access method executors. 
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WIGPATH Field 


The WTG table contains a field called WIGPATH. The settings of bits in this 
field are used to pass information between the O/C/EOV modules. ¢ ) 


The first two columns of the following list show each byte of the WIGPATH 
field and each bit within the byte that is used. The third column shows which 
functions use each bit, and the fourth column tells what each bit indicates 


when set to 1. 

Description of WIGPATH Field 

Byte Bit Used by 
WTGPATH+0 1... ..... Open 


wl. 2... Open 


le gue —EOV 
TCLOSE 


BS. syaete Close, 
EOV 


1... Open 


.l.. Open 


XX 


WTGPATH+#I 1... ..... Open, 
Close, 
EOV 


.l.. Open, 
Close, 
TCLOSE, 
EOV 


XXX X... 


lL. Open 


..| Open 
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Indicates 


Release of unused direct-access space was 
requested. 


Nonstandard label tape input processing 
requires that a WTO be issued to tell the 
operator the data set name. 


NSL processing is deferred. 
NSL routine to be given control. routine. 


SMF data set activity information 
required. 


JFCB has béen modified and must be copied 
back to the SWA. 


Additional device not ready; messages are 
suppressed for the 3270. 


Reserved 


Optional trace requested. 


TIOT must be dequeued. - 


Reserved 


Tape volume with nonstandard labels must be 
remounted and checked. 


Abnormal termination condition encountered in 

processing a DCB/ACB, requiring problem ‘ 
determination processing, but other DCB/ACBs 

in the same request must first be processed. 


c 


c 


DIAGNOSTIC AIDS 


This section presents message and system code cross-reference information, 
describes how to read and interpret the information about errors recorded by 
O/C/EOV routines, and tells how to activate the optional problem 
determination and diagnostic routines provided with the O/C/EOV 
component. 


System Code-to-Module and Message Cross-References 


You can use the cross-reference tables that follow, in conjunction with 
OS/VS Message Library: VS2 System Messages and OS/VS Message 
Library: VS2 System Codes, to determine which O/C/EOV module 
detected an error condition. You must know the system code and the return 
code (contents of register 15) in order to use the table. The system code and 
return code are included in the message text. 


Following the system-code-to-module cross-reference table is a list of the 
internal codes passed to the O/C/EOV problem determination routines by 
the mainline O/C/EOV modules, the access method executors, and some of 
the SAM and BDAM processing routines. Abbreviated descriptions of the 
error condition associated with each internal ABEND code are shown in this 
table. Complete descriptions and additional information can be found in 
OS/VS Message Library: VS2 System Messages. 


Problem Determination and Recovery Routine Diagnostics 


Optional Work Area Trace 


This section describes the output of the O/C/EOV problem determination 
and recovery routines. It is intended for use in interpreting the information 
put in SYS1.LOGREC, a GTF data set, and system dumps by the O/C/EOV 
problem determination and recovery routines. 


This section tells how to activate the optional work area trace routine, which 
when activated, saves the contents of work areas and control blocks. 


Module Listing Routine and Examples of Lists 


This section tells how to activate the optional module listing routine. This 
routine prints the CSECT ID of each O/C/EOV module entered during the 
execution of an Open, Close, or End-of-Volume operation. Examples of the 
module lists put out by the routine are included. 
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System Code, Message, and Internal Code 
Cross-Reference 


System Code-to-Module Cross-Reference 2s 2 


This table is intended to be used to find the O/C/EOV module (or access 
method module) that detected an abnormal termination condition. You must 
know the system code and return code (contents of register 15) associated 
with the condition. The system code and return code are included in dumps 
and in the message text. For example, in the message 


IEC1411 013-BC, JIUOFPNS,,SYSIN 
013 and BC are the system code and return code, respectively. 


Also included in this table are the message ID, the O/C/EOV internal 
ABEND code, the name of the module that detected the condition, and a 
terse description of the function of the module. 


All of the messages in the table that follows are issued by problem 
determination module IFGO199B. The text for these messages is contained in 
a table in the first load of the problem determination routines: IFGO190P for 
Open, IFG0200P for Close, IFG0232P for TCLOSE, IFGO550P for EOV, 
IGG0196M for RDJFCB and the open access method executors, or 
IGG0206M for the close access method executors. 


Module Function 

System Return Message Internal Detecting of 

Code Code ID Code Error Module 

002 04 IECO36I 253 IGGOI9AB QSAM GET routine 
IGGO19AD QSAM GET routine 
IGGOI9AE QSAM GET routine 2 


IGGO19BN QSAM GET-update 
routine 


IGG019BO QSAM GET routine 
IGGO19FB QSAM GET routine 
IGG019FD QSAM GET routine 
IGGO19FF QSAM GET routine 
08 [ECO36I 254 IGG019CD SAM EOB routine 
IGGO19CV SAM EOB routine 
IGG019C2 SAM EOB routine 
IGGO19TD SAM EOB routine 
IGGO19TV SAM EOB routine 
[GG019T2 SAM EOB routine 
0c IECO36I 202 IGGO19CD SAM EOB routine 
IGGO19CV SAM EOB routine 
IFGO19TD SAM EOB routine 
IGGOL9STV SAM EOB routine 


10 IECO361 203 IGGO19FG SAM EOB routine 
IGGOI9FG QSAM PUT routine 
14 [IECO36I 204 1GG019C2 SAM EOB routine 
1GG019T2 SAM EOB routine J 
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System Code-to-Module Cross-Reference 


System Return Message 


Code 


005 


008 


013 


Code 


18 


1C 


08 


28 


2C 
30 
34 


ID 


IECO36] 


IECO36I 


IECO36I 


IECO361 


IECO56I 


IEC041] 
IEC041] 
IEC0371 


JEC0371 


IEC1411 


IEC1411 


IEC 141] 
IECI411 
IEC1411 
IECI411 
IEC1411 
IEC1411 
IEC141] 


IECI41! 


IECI411 
IEC1411 
IEC1411 


Internal 
Code 


213 


205 


206 


207 


208 


200 
201 
209 


210 


17 


18 


51 
52 
53 
54 
a9 
56 
57 


58 


59 
63 
61 


Module 
Detecting 
Error 


IGGO19AL 
IGGOI9AJ 
I1GG019BP 
IGGOI19FJ 
IGGO1I9DA 


IGG019DB 


IGG019DD 


I1GG019DD 


1GG0191M 


IGG0196R 
I1GG0196R 
IGGO19BS 


1GG019DC 


IGGOI19BS 


1GG019DC 


IFG0O194F 


IFG0194F 


IGGO193A 
IGGO191C 
1GG0191B 
1GG0191B 
1GG0191B 
IGGOI9IA 
IGGOI9IA 
1GG0199G 


IGGOI9IA 
1GG0199G 


1GG0196) 
IGGOI91F 
IGGO19I1I 
IGG0199G 


Function 
of 
Module 


QSAM PUT routine 
QSAM PUT routine 
QSAM PUT routine 
QSAM PUT routine 


BDAM create, 
format F 


BDAM create, 
format U,V 


BDAM create, format F, 
track overflow 


BDAM create, format F, 
track overflow 


BDAM create, 
open executor 
SAM open executor 
SAM open executor 


BDAM create, check, 
format VS 


BDAM create, check, 
format F,V,U 


BDAM create, check, 
format VS 


BDAM create, check, 
format F,V,U 

Open tape volume 
verification 


Open tape, volume 
verification 


BDAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 


SAM subsystem interface 
open executor (JES) 


SAM open executor 


SAM subsystem interface 
open executor (JES) 


SAM open executor 
SAM open executor 
SAM open executor 


SAM subsystem interface 
open executor (JES) 
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166 OS/VS2 Open/Close/EOV Logic 


System Code-to-Module Cross-Reference 


System Return Message 
Code Code ID 


38 IECI411 


3C IECI411 
40 IECI411 


44 IEC1411 


48 IEC141I 
4C IEC1411 


50 IECI41I 
54 IEC1411 
58 IECI4 11 
SC IEC1411 


60 IEC1411 
64 IECI4 11 


68 IEC14 11 
6C IEC1411 
70 IECI41I 


74 IEC1411 
78 IECI41I 
7C IECI41I 
80 IEC 1411 
84 IEC1411 
IECI41I 
90 IECI411 
94 IEC14I11 
98 IEC1411 
9C IECI41I 
AO IECI411 
A4 IECI411 


A8 IECI411 


Internal 
Code 


62 


60 
64 


65 


66 
72 


113 


115 
116 
117 
106 


107 


Module 
Detecting 
Error 


IGGO191H 
IGGO199K 
IGGO191D 
IGG01910 
IGG01990 
IGGOISIK 
IGGO191W 
IGGOI9I11 

IGG0196B 

IGGOI9IA 
IGG0199G 


IGG0196B 
IGG0196A 
IGGO01912 

IGGO1915 

IGG01916 

IGGOI9IA 
IFG0196J 


IFGO194A 


IFGO196L 


IFGO196L 


IFG0196M 


IGG0197A 
IGGOI97A 
IGG0197A 
IGGO197A 
IGG0197B 
IGGO191B 
IGGO197V 
IGGOISIA 
IGGOI9IA 
IGG0197V 
IGGOISIA 
1GG0199G 


IGG0199G 


Function 

of -) 
Module 

SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 


SAM subsystem interface 
open executor (JES) 


SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 


Open merge, JFCB 
to DCB 


Open, volume/unit 
selection 


Open merge, DCB 
exit 


Open merge, DCB 
exit 


Open merge, DCB to 
JFCB 


SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 


SAM subsystem interface 
open executor (JES) 


SAM subsystem interface 
open executor (JES) 


J 


System Code-to-Module Cross-Reference 


System Return Message 


Code 


03D 


113 


117 


Code 


BO 


B4 


B8 
BC 


CO 


C4 


C8 
CC 


04 


08 


08 


08 


20 


24 


ID 
IEC1411 


JEC1411 


JEC1411 
IEC1411 


IEC1411 


IEC1411 


IECI411 
IECI4I11 


IECO38I 


IECO38] 


IEC1561 


IEC1561 


IEC 1421 


IEC1421 


IEC142] 
IEC142] 


IEC2181 
IEC218] 


IEC218] 


JEC218] 


JEC218] 


IEC218] 


IEC218] 


JEC218I1 


Internal 
Code 


221 


222 


223 
226 


227 


229 


252 
118 


211 


212 


214 


215 


32 


120 


34 
50 


131 
139 


127 


128 


137 


129 


130 


134 


135 


Module 
Detecting 
Error 


IGGOI9IA 


IGGOI9IA 


IGG0197V 
1GG0199G 


1GG0199G 


IGGOI9IL 


1GG0193K 
1GG0196Q 


1GG0193A 


1GG0193A 


IFG0O194C 


IFG0194C 


IFG0194A 


1GG0196Q 


IFG0193A 
IFGO194A 


IFG0232Z 
1FG0232S 


1FG0232S 


1FG0232S 


IFG0232S 


IFG0232S 


IFG0232S 


IFG0232S 


IFG0232S 


Function 
of 
Module 


SAM open 
executor 


SAM open 
executor 


SAM open executor 


SAM subsystem 
interface executor 


SAM subsystem 
interface executor 


BDAM open 
executor 


Subsystem open executor 


SAM Open Executor for 
3800 


BDAM open 
executor 


BDAM open 
executor 


Open, DA volume 
verification 


Open, DA volume 
verification 


Open, volume/unit 
selection 


SAM Open Executor for 
3800 


Open initialization 


Open, volume/unit 
selection 


TCLOSE final 


TCLOSE, NL, SL 
tape 

TCLOSE, SL output 
tape 

TCLOSE, SL output 
tape 

TCLOSE, SL output 
tape 

TCLOSE, SL output 
tape 


TCLOSE, SL output 
tape 
TCLOSE, SL output 
tape 


TCLOSE, SL output 
tape 


Diagnostic Aids 167 


System Code-to-Module Cross-Reference 


Meddele Function 
System Return Message Internal Detecting of 
Code Code ID Code Error Modale 
28 1EC2181 136 IFGO02325 TCLOSE, SL output 
tape 
2C IEC2181 140 IFGO0232G TCLOSE, SL output 
; tape 
IFG0232S TCLOSE NL, SL tape 
positioning 
IFGOSSIR EOV output tape, write 
EOV2 label 
30 IEC2181 141 IFG0232M TCLOSE, SVL output 
tape 
34 IEC2181 233 IFG0232Z TCLOSE, final 
137 04 IECO221 141 IFGOS51P EOV output tape write 
EOV] label 
IFGOSSIR EOV output tape, write 
EOV?2 label 
08 1ECO221 146 IFG0552R EOV input tape, position 
current volume 
1 IECO22I 147 {[FGO552R EOV input tape, position 
current volume 
10 IECO22! 150 1FGO552R EOV input tape, position 
current volume 
IFGO552T EOV input tape, read 
user labels 
14 IECO221 164 IFGOS53F EOV input tape, label 
processing, new volume 
18 IECO0221 191 [FGOS53F EOV input tape, label 
processing, new volume 
1C JEC022I 180 IFGO552R EOV input tape, position 
current volume 
20 1ECO22I 195 IFGO5S53F EOV input tape, label 
processing, new volume 
24 IECO22I 108 [FGO552B EOV output tape, rewrite 


volume label, new volume 


168 OS/VS2 Open/Close/EOV Logic 


System Return Message 


Code 
16E! 04 


08 


0c 


213 04 


08 


0C 


20 


24 


214 04 


08 


237 04 


08 


Code 


ID 


1EC143] 


1EC143] 


IEC143] 


IEC143] 


IEC1431 


IEC143] 


1EC143] 


JEC1431 


IEC2101 


IEC2101 


1EC0231 


JECO231 


Internal 
Code 


30 


21 


216 


31 


230 


231 


System Code-to-Module Cross-Reference 


Module 
Detecting 
Error 


IFGDEBCK 


IFGDEBCK 


IFGDEBCK 


IFGDEBCK 


IFGDEBCK 


IFGDEBCK 


IFGDEBCK 


IFGDEBCK 


IFGO195G 


IFG0194C 


IFGO195T 


IFGO194C 


IFG0196X 


IFGO194C 


IFG0194C 


IFG0194C 


IFGO194A 


IFG0194C 


IFG0202A 


IFG0202F 


IFGO552R 


IFGO0553F 


Function 
of 
Module 


DEB validity 
check 


DEB validity 
check 


DEB validity 
check 


DEB validity 
check 


DEB validity 
check 


DEB validity 
check 


DEB validity 
check 


DEB validity 
check 


Open direct-access 213 
ABEND exit function 


Open, DA vohime 
verification 
Open/EOV password 
protection 


Open DA volume 
verification 


Open, load EXCP 
appendages, 
move JFCB 


Open DA volume 
verification 


Open, DA volume 
verification 


Open, DA volume 
verification 


Open, volume/unit 
selection 


Open DA volume 
verification 


Close, SUL tape, read or 
write user labels 


Close tape, volume 
disposition function 


EQV input tape, position 
current volume 


EOV input tape, label 
processing, new volume 


! This ABEND is issued by the DEB validity checking routine (IFGDEBCK), not the 
problem determination routines. 
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170 OS/VS2 Open/Close/EOV Logic 


System Return Message 
Code Code ID 


240 04 IECI55I1 


08 IEC155I 


OC TEC155I 


10 IEC1551 
313 04 IEC 1441 
314 04 IEC2111 


08 IEC2111 


317 04 IEC220I 


337 04 IECO24I 


08 IEC024I 


413 04 IEC1451 


08 IEC1451 


0C IEC145I 


10 IEC145I 
18 IEC1451I 


IC IECI45] 


20 IEC1451 


24 IEC1451 


2c IECI45I 
IEC1 661 


Internal 
Code 


80 


81 


82 


36 


86 


89 


132 


174 


252 


37 


27 


23 


111 


ye 


System Code-to-Module Cross-Reference 


Module 
Detecting 
Error 


IGC0006D 


IGC0006D 


IGC0006D 


IGC0006D 


IFG0194C 


IFG0200V 


IFGO200Y 


IFGO201R 


[FG0232D 


IFG0552X 
IGCOOOSE 
IGGOL9AV 


IFGO194A 


IFGO195D 


IFGO1960 
IFGO194F 


IFGO194F 


IGC0002B 
IFGO194A 


IFGOI93A 


IFGO194A 


IFGO194C 


IFGO194F 


IFGO194J 
IGGOI9IN 
IGGOI93A 


Function 
of 
Module 


RDJFCB macro 
instruction 


RDJFCB macro 
instruction 


RDJFCB macro 
instruction 


RDJFCB macro 
instruction 


Open DA, volume 
verification 
Close initialization, 


read JFCB 


Close access method 
executor return 


Close, DA output, 
update Fl DSCB 


TCLOSE DA, read F1 
DSCB 

EOV, EOD/concatenation 
EOV, initialization 

SAM dummy data set 
routine 

Open, volume/unit 
selection 


Open tape, 
NSL input 


Open tape, NSL output 


Open tape, volume 
verification 


Open tape, volume 
verification 


Open, TYPE=]J 


Open, volume/unit 
selection 


Open initialization, 
read JFCB 


Open, volume/unit 
selection 


Open DA, volume 
verification 


Open tape, volume 
verification 


OPEN message routine 
SAM open executor 


BDAM open executor 


J 


System Return Message 


Code Code ID 

30 IEC145I 

34 IEC145I 
414 04 IEC212I 
417 04 IEC221] 
437 08 IECO25I 

oc IECO25] 
513 04 IEC 1461 
613 04 IEC147I 


08 IEC147] 


0c IEC1471 


10 IEC147] 


Internal 
Code 


112 


253 


88 


133 


182 
199 


11 


12 


15 


System Code-to-Module Cross-Reference 


Module 
Detecting 
Error 


IFG0194C 


IFGO0194C 


IFG0201R 


IFG0232D 


IFCOQ003A 
IFG0553X 


IFG0555H 


IFGO194A 


IFGO195B 


IFGO195C 


IFGO195K 


IFGOL95N 


IFGO195B 


IFGO195H 


IFGO195K 


IFGO196N 


IFGO194A 


IFGO194F 


IFGO195H 


IFGO195K 


IFGO196N 


IFG0196Q 


IFGO196T 


Function 
of 
Module 


Open, direct-access volume 
verification 


Open, direct-access volume 
verification 


Close, DA output, 
update F1 DSCB 


TCLOSE DA, write F! 
DSCB 


FEOV initialization 


EOV, DA input, build 
new DEB 


EOV, DA output, build 
new DEB 


Open, volume/unit 
selection 


Open, position SL 

tape 

Open, position NL (BLP) 
tape 


Open, SL input tape, verify 
HDR2 label 


Open, SL input tape, read 
user labels 


Open, position 
SL tape 


Open, SL input tape, verify 
HDR] label 


Open, SL input tape, verify 
HDR2 label 


Open, SL output tape, 
read existing HDR1I label 


Open, volume/unit 
selection 


Open, tape volume 
verification 


Open, SL input tape, 
verify HDR1 label 


Open, SL input tape, 
verify HDR2 label 


Open, SL output tape, 
read existing HDR1 label 


Open, SL output tape, 
check expiration date, 
write volume label 


Open, SL output tape, 
write HDR1 and HDR2 
labels 
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System Code-to-Module Cross-Reference 


System Return Message 


Code 


614 


637 


713 


714 


Code 
14 


4C 


08 


08 


ID 
IEC 147] 


IEC2141 
IEC2141 


IECO26I 
IECO26l 


IECO26l 
IECO26I 


IECO26I 
IECO26I 
IEC026I 


IECO26I 


IECO26I 
IEC0261 
IECO0261 
IECO261 
IECO261 
IECO26I 


IECO26I 


IEC1481 


JEC148I 
IEC215I 


IEC2151 


Internal 
Code 


16 


28 


61 


63 


Module 
Detecting 
Error 


IFGO196T 


IFG0202E 
IFG0202E 


IFG0551T 


IFG0552T 


IFG0552X 
IFGO553F 


IFG0552V 


IFG0552V 


IFG0552V 


IFGO554F 


IFG0552V 


IFGO554F 


IFGO554F 


IFGO554F 


IFG0553F 


IFG0553F 


IFG0554F 


IFGO553F 


IFGO195H 


IFG0196Q 


IFGO194A 


IFG0200Z 


IFGO202A 


Function 


vif J 


Module 


Open, SL output tape, 
write HDR1 and HDR2 
labels 


Close, DA final 
Close, DA final 


EOV output tape, 
volume disposition 


EOV input tape, read user 
labels, current volume 


EOV, EOD/concatenation 


EOV input tape, label 
processing, new volume 


EOV input tape, position 
current volume 


EOV input tape, position 
current volume 


EOV input tape, position 
current volume 


EOV tape, volume 
verification 


EOV input tape, position 
current volume 


EOV tape, volume 
verification 


EOV tape, volume 
verification 


EOV tape, volume 
verification 


EOV input tape, label 
processing, new volume 


EOV input tape, label 
processing, new volume 


EOV tape, volume 
verification 


EOV input tape, label 
processing, new volume 


Open SL tape, verify 
HDRI label 


Open, SL ouput tape, 
check expiration date, 
rewrite volume label 


Open, volume/unit 7 
selection 


Close, SL tape, write 
TRLI and TRL2 labels 


Close, SUL tape, read 
or write user labels 


wd 


System Retum Message 


Code Code ID 
oC IEC215I 
717 04 IEC2221 
08 IEC222I 
08 IEC222I 
oC IEC222I 
10 IEC222I 
737 04 IECO027I 


08 IEC0271 


OC IEC0271 


10 IEC0271 
14 IEC0271 


1C JEC9271 


24 IEC0271 
28 IEC0271 
2C IEC0271 


34 IECO027! 


Internal 
Code 


62 


122 


123 


124 


125 


126 


138 


190 


189 


171 


187 
175 


178 


218 


250 


232 
111 


System Code-to-Module Cross-Reference 


Module 
Detecting 
Error 


IFG0202F 


IFG0200Z 


IFG0202F 


IFG0232G 


IFG0232G 


IFG0232M 


IFG0232S 


IFG0232S 


IFG0232S 


IFG0554C 


IFGO554N 
IFG0554P 


IFG0554T 


IFG0554Z 


IFG0554C 


IFG0194C 


IFG0554C 


IFG0553Z 


IFGO554N 
IFGO553P 


IFG0554C 


IFG0553Z 


IFG0554C 


IFGO554N 
IFGO553X 


Function 
of 
Module 


Close, tape volume 
disposition 
Close SUL tape, read 


or write user labels 


Close, tape volume 
disposition 


TCLOSE SL output tape, 
write EOF1 label 


TCLOSE SL output tape, 
write EOF label 


TCLOSE SUL output 
tape, write EOF2 
and user labels 


TCLOSE, NL, SL tape 
positioning 

TCLOSE, NL, SL tape 
positioning 

TCLOSE, NL, SL tape 
positioning 

EOV, DA volume 
verification 

FEOV, DA output 


EOV, DA output, get 
more space 


EOV, DA output, 
B37 ABEND 


EOV, DA output, update 
Fl DSCB, current volume 


EOV, DA volume 
verification 


EOV, DA volume 
verification 


EOV, DA volume 
verification 


EOV DA input 
final 


FEOV, DA output 


EOV, DA input, read 
Fl DSCB 


EOV, DA volume 
verification 


EOV, DA input, 
final 


EOV, DA volume 
verification 
FEOV, DA output 


EOV direct-access input 
build new DEB 
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System Code-to-Module Cross-Reference 


System Return Message 


Code 


813 


837 


913 


Code 


38 


3C 


08 


28 


2C 


30 


38 


3C 


ID 
IEC066I 
IEC0271 


IEC066I 
IEC0271 


IEC149I 


[ECO28I 


IECO28I 


IEC150I 


IEC 1501 


IEC150I 


IEC1501 
[EC150I 


IEC150I 
IEC 1501 
IEC150I 


IEC150I 


[ECI50I 


IEC150I 


IEC1501 


IEC1 501 


Internal 
Code 


112 


248 


239 


243 


244 


141 


142 


Module 
Detecting 
Error 


IFGO555H 


IFG0554C 


IFG0554C 


IFGO195H 


IFGO554A 


IFG0551H 


IFGO554A 


IFG0O194F 


IFGO195K 


IFGO196N 


IFG0195U 


IFGO196L 
IFG0194C 


1GC0002B 


IGC0002B 


IFGO196X 


IFG0194C 


IFG0196V 


IFGO194C 


IFGO194J 


IFGO196N 


IFGO194C 


IFGO193E 


IFGO194F 


IFGO194C 


Function 
of 
Module 


EOV direct-access output 
build new DEB 


EOV direct-access volume 
verification 


EOV, DA volume 
verification 


Open, SL input tape, 
verify HDRI label 


EOV, volume/unit 
selection 


EOV, determine 
device type 


EOV, volume/unit 
selection 


Open, tape volume 
verification 


Open SL tape, verify 
HDR2 label 


Open, SL output tape, read 
existing HDR1 label 


Password protection, udpate 
password record 


Open merge, DCB exit 


Open, DA volume 
verification 


Open, type=J 
Open, type=J 
Open, load EXCP 


appendages, 
copy JFCB 


Open, DA volume 
verification 


Open, gives control to 
executor 


Open, DA volume 
verification 


Open, volume mount 
message 


Open, SL output tape, 
reading existing HDR1 
label 


OPEN, DA volume 
verification 


OPEN, create standard 
tape label 


OPEN, tape volume 
verification 


OPEN, tape volume 
verification 


System Code-to-Module Cross-Reference 


System Return Message 


Code 


937 


Code 
40 


44 


48 


4C 


2C 


30 


ID 
IEC1 501 


IEC1 501 


IEC1501 


JEC1501 
IEC1501 
IEC150I 
IEC1501 
IEC1501 


IECO0291 


IECO291 


IEC0291 
IECO0291 


1EC0291 
1EC0291 


IECO291 


JECO29] 


TECO291 


Internal 
Code 
143 


245 


247 


248 


249 


250 


251 


252 


240 


241 


Module 
Detecting 
Error 


IFG0194C 


IFGO196T 


IFG0194F 


IFG0194F 


IFG0196T 


IFG0194F 


IFGO0194F 


IFG0194F 


IFG0193D 


IFG0552B 


IFGO553F 


IFG0554C 


IFGO553F 


IGCO0003A 
IFG0554B 


IFG0553H 


IFGO552B 


IFG0554C 


IFGOS53E 


IFG0554F 


IFG0554C 


IFG0554C 


Function 
of 
Module 


OPEN, tape volume 
verification 


OPEN, SL output tape, 
write HDR1 and HDR2 
labels 


OPEN, SL output tape, 
write HDR1 and HDR2 
labels 


OPEN, SL output tape, write 
HDR1 and HDR2 labels 


OPEN, SL output tape, write 
HDR] and HDR2 labels 


OPEN, SL output tape, write 
HDR1 and HDR2 labels 


OPEN, SL output tape, write 
HDR1 and HDR2 labels 


OPEN, SL output tape, write 
HDR. and HDR2 labels 


EOV, destroy standard 
tape label 
verification 


EOV, tape output, rewrite 
volume label, new volume 


EOV, tape input, label 
processing, new volume 


EOV, DA volume 
verification 


EOV, tape input, label 
processing, new volume 


FEOV, initialization 


EOV, DA, repositioning 
records that span volumes 


EOV, tape input, label 
processing, new volume 


EOV, tape output, rewrite 
volume label, new volume 


EOV,SL output tape, write 
HDRI1 and HDR2 labels 


EOV, SL output tape, write 
HDR1 and HDR2 labels 


EOV, SL output tape, write 
HDR1 and HDR2 labels 


EOV, SL output tape, write 
HDR 1 and HDR2 labels 


EOV, SL output tape, write 
HDR1 and HDR2 labels 
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System Code-to-Module Cross-Reference 


aN 


System Return Message 


Code Code ID:=. 
34 IECO29I 
38 IECO291 
3C IECO29I1 
40 IECO291 
Al3 04 IECIS11 
08 
OC 
10 
14 
18 
A14 04 IEC215I 
A37 04 IECOISI 
08 IECOISI 
B13 04 IEC152I 
08 IEC152I 
0c IEC152I 
10 IEC152I 
14 f[EC1521 
18 [EC1 521 
1C IEC152I1 


20 IEC 1521 


24 IEC152I1 


28 IEC152I 


176 OS/VS2 Open/Close/EOV Logic 


Internal 
Code 


4 


10 


152 


153 
154 
(55 


156 
87 
198 
219 


96 


97 


Module 
Detecting 
Exstor 


IFG0554C 
IFG0554P 
IFG0554C 
IFG0554F 
IFGO553E 
IFG0554F 
IFG0552B 
IFG0554C 
IFGO195B 
IFGO195C 


IFGO195B 
IFGO195B 
IFGO195B 
IFGO195H 


IFGO195B 

IFGO202E 

IGCOOOSE 
IFGOS51F 

IFGOOOSE 

IGGO191U 
[GG0196R 
IGGO191U 
IGGOI9IV 
IGG0196R 
[GG0197U 
IGG0197U 
IGGO0197F 
IGG0197F 
IGG0191T 
IGGO0196R 
IGGO191T 
IGGO0196R 
IGGO0191T 


Function 
of 
Module 


EOV, SL output tape, write 
HDRI and HDR2 labels 


EOV, DA input, read F1 
DSCB 


EOV, DA input, read FI 
DSCB 


EOV, DA input, read F1 
DSCB 


EOV, DA input, read F1 
DSCB 


EOV, DA input, read F1 
DSCB 


EOV.tape output, rewrite 
volume label, new volume 


EOV, tape output, rewrite 
volume label, new volume 


Open, position SL 
tape 


Open, position NL (BLP) 
tape 


Open, position SL tape 
Open, position SL tape 
Open, Position SL tape 


Open, SL input tape 
verify HDRI label 


Open, positiun SL tape 
Close DA final 

EOV, initialization 
EOV,read JFCB 

EOV initialization 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor 
SAM open executor ® 
SAM open executor 
SAM open executor 
SAM open executor 


SAM open executor 


System Return Message 


Code Code ID 
2C IEC1521 
30 IEC152I1 
34 IEC152I 
B14 04 IEC217] 
1EC217] 
08 IEC217I 
IEC217I 
oC IEC217I 
10 IEC217I 
14 IEC217I 
18 IEC217I 
B37 04 IECO301 
08 IECO30I 
Te IECO30I 
C13 04 IEC157I 
10 IEC1531 
C37 04 IECO33I 
08 JECO33I1 
D13 04 IEC158I 
D37 04 IECO3 II 
E13 04 IEC1591 
E37 04 IECO321 
08 21 


Internal 
Code 


101 
102 
103 


121 


122 


123 


124 


125 


126 


142 


156 


168 


185 


177 


247 


91 
42 


230 


231 


92 


186 


93 
184 


183 


System Code-to-Module Cross-Reference 


Module 
Detecting 
Error 


IGGO197E 
IGG0197E 
IGG0197E 


1GG0201B 
1GG0201Z 
1GG0201B 
1GG0201Z 
1GG0201B 
1GG0201Z 
1GG0201B 
1GG0201Z 
IGG0201B 
1GG0201Z 
1GG0201B 
1GG0201Z 
IFGO554A 


IFG0554A 


IFG0554A 


IFG0554T 


IFGO554P 


IFG0554A 


1GG01934 
IFG0194A 


IFG0194C 


IFG0194C 


1GG01934 


IFGOS54P 


IGG01934 
IFG0554P 


TFG0554P 


Function 
of 
Module 


SAM open executor 
SAM open executor 


SAM open executor 


SAM close executor 
SAM close executor 
SAM close executor 
SAM close executor 
SAM close executor 
SAM close executor 
SAM close executor 
SAM close executor 
SAM close executor 
SAM close executor 
SAM close executor 
SAM close executor 


EOV, volume/unit 
selection 


EOV, volume/unit 
selection 


EOV, volume/unit 
selection 


EOV, DA output, 
B37 ABEND 


EOV, DA output, get 
more space 


EOV, volume/unit 
selection 


GAM executor 


Open, volume/unit 
selection 


EOV, DA volume 
verification 


EOV, DA volume 
verification 


GAM executor 
EOV DA output, 
get more space 
GAM executor 


EOV DA output, 
get more space 


EOV DA output, 
get more space 
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Internal ABEND Codes 


When an abnormal termination condition arises during an Open, Close, or -) 
EOV operation, the module detecting the condition passes the O/C/EOV 

problem determination function an internal code using the DMABCOND 

macro. This interna] code indicates which system code, return code, and 

message are to be issued. 


The following tables are divided into the Open, Close, Close (TYPE=T), and 
EOV operations with the internal codes that each passes listed under it. The 
tables give the internal code, its associated ABEND code and return code, 
and an abbreviated description of the reason for the error. The OS/VS 
Message Library: VS2 System Messages and OS/VS Message Library: VS2 
System Codes provide complete descriptions of the error conditions, along 
with system actions, programmer responses, and the sources of diagnostic and 
problem determination information. These tables may be used in conjunction 
with the preceding cross-reference table to find the name and function of the 
module that issued the internal code. 


Open Codes 
Internal ABEND Return 
Code Code Code Reason 
| 413 04 No unit available to mount volume, or volume 


inproperly specified 


2 413 08 I/O error during positioning of tape volume 
3 413 OC 1/O error during reading of tape volume label 
4 413 10 1/O error during writing of tapemark 
6 513 04 Second OPEN was issued for a data set ona J 
magnetic tape volume 
8 413 18 Data set was opened for input and no volume 
serial number was specified 
9 613 04 1/O error during positioning of tape volume 
10 Al3 04 I/O error due to incorrect file sequence number 
during positioning of tape volume 
11 613 08 I/O error during reading of tape label 
12 613 OC Invalid tape label was read 
13 713 04 Expiration date on magnetic tape data set has not 
passed 
14 813 04 DSNAME on header label does not match that on 
DD statement 
15 613 10 [/O error during writing of tape label 
16 613 14 1/O error during writing of tapemark following 
header labels 
17 013 04 American National Standard labels specified but 
not specified at system generation. 
18 013 08 American National Standard labels specified for 
7-track tape drive 
a] 
19 913 04 ASCII volume accessibility byte not blank 
20 913 08 ASCII security byte in HDR1 label indicates 
password-protected volume 
21 213 08 Format-!1 DSCB for PASSWORD data set not | ; 
found J 
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Open Codes 


Internal 
Code 


22 
23 
24 


26 


46 
47 


50 
51 
52 
53 
54 


55 


ABEND 
Code 


913 


413 


913 


413 


413 


713 


213 
213 


113 
113 


313 


413 


913 


C13 


013 


013 


013 
013 


113 


013 


013 


013 


013 


013 


Retum 
Code 


20 


08 


14 


10 


6C 
70 


Reason 


Invalid password supplied by operator 


800 BPI specified and data set allocated to 1600 
BPI drive, or 1600 BPI specified and data set 
allocated to 800 BPI drive 


Unauthorized job step attempted to open a VTOC 
for output 


Open was not able to demount volume and mount 
required volume 


I/O error during reading of volume label on 
direct-access device 


Expiration date on direct-access data set has not 
passed 


DSCB not found on first volume of data set 


1/O error during writing back of identifier 
(format-1) DSCB 


No JFCB extension found, PS data set 


OPEN TYPE#J issued but no JFCB address 
specified 

I/O error during reading of index (format-2) or 
extension (format-3) DSCB 


Volume sequence number is greater than volume 
count 


Checkpoint and non-checkpoint data sets 
concatenated 


Illegal concatenation of PO data sets for output 
specified 


Dummy (null) data set specified but (1) invalid for 
EXCP or (2) DSORG did not specify BSAM or 
QSAM 


Blocksize is greater than 32760 


Allocated unit does not support track overflow 


Magnetic tape volume has mixed EBCDIC and 
ASCII attributes, or DCBOPTCD=Q specified for 
a nontape device, or DCBOPTCD indicates ASCII 
translation and/or user totaling for a spooled data 
set 


No JFCB extension found, ISAM or BDAM data 
set 


BUFL of 0 specified, dynamic buffering requested 


For QSAM dummy data set using PUT LOCATE; 
DCBBUFCB=0, DCBBUFL=0, and 
DCBBLKSI=0 


DCB specified PO data set but DSCB specified 
different data set organization 


Member of PO data set not found during 
execution of BLDL instruction 


I/O error during searching of directory of PO data 
set 


Diagnostic Aids 179 


Open Codes 


Internal ABEND Return 
Code Code Code Reason 


56 013 20 QSAM blocksize not a multiple of logical record 
length for blocked data set with fixed-length 
records, or for variable-length records, blocksize 
not four (4) greater than logical record length 


57 013 24 OPEN option 1 conflicts with MACRF parameter 
in DCB or DCB or ACB 

58 013 28 OPEN option | conflicts with MACRF parameter 
in DCB or ACB 

59 013 2C No buffers available 

60 013 3C No buffers available 

61 013 34 Buffers cannot be obtained because no blocksize 


or buffer length is specified, or logical record 
length is zero for a spooled QSAM data set not 
specifying V-type records, or blocksize is zero for 


a spooled BSAM data set 
62 013 38. -—No buffers available 
63 013 30 No buffers available 
64 013 40 No buffers available 
65 013 44 No buffers available 
66 013 48 No buffers available 
67 B13 10 I/O error during verifying of UCS print chain 
68 B13 14 Requested print chain not available 
69 B13 oC I/O error during loading of UCS buffers or 


permanent I/O error loading the format record 
into the IBM 3886 Optical Character Reader 


70 B13 08 Permanent I/O error when BLDL was issued to 
locate a UCS image in SYS1.IMAGELIB 
71 B13 04 UCS image not found in SYS1.SVCLIB by BLDL 


instruction or format record identifier specified 
for the IBM 3886 Optical Character Reader was 
not found in the SYS1.[MAGELIB 


72 013 4C Buffer length specified is smaller than blocksize 

73 013 50 OUTPUT not specified in OPEN macro for 
printer data set 

74 013 54 Secondary control unit for an IBM 1419 Magnetic 
Character Reader not found 

75 013 58 Concatenation of unlike attributes was specified 
for data set on paper tape 

76 013 5C QSAM spanned variable-length records not in 
locate mode 

79 240 04 RDJFCB issued but no foundation block present 
in DCB or ACB 

80 240 08 RDJFCB issued but no exit list address specified in 
DCB or ACB ’ 

81 240 OC RDJFCB issued but no JFCB exit specified 

82 240 10 RDJFCB issued but exit list address is invalid 

83 013 60 QSAM DCB specified RECFM=F, but logical 


record length not equal to blocksize 
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Open Codes 


Internal 
Code 


84 
85 


86 
87 
88 


89 
90 
91 
92 


93 
94 


95 


96 


97 


107 


ABEND 
Code 


013 


013 


013 
013 
013 


B13 
B13 
C13 
D13 


E13 
013 


B13 


B13 


B13 


none 


B13 


B13 


B13 


none 


013 


013 


137 


937 


Return 
Code 


88 


20 


24 


28 


none 


2C 


30 


34 


none 


A4 


A8 


24 


24 


Reason 


Number of buffers in buffer pool control block not 
equal to BUFNO in DCB 


Optical character recognition (OCR) data set not 
open for 


OCR data set opened with BUFL=0 
OCR data set opened with LRECL=0 


OCR data set opened with buffer length less than 
logical record length 


1/O error during FCB image verification 
Operator replied "CANCEL’ to message IEC1281 
Graphics device already open for this DCB 


DCB specifies GAM and requested unit not 
graphics device 


DCBGNCF field exceeds limits 


QSAM specified in error for a communications 
device 


Storage not available for SYS1.IMAGELIB or 
unable to load the IBM 3886 OCR format record 
from SYS1.IMAGELIB (either the volume was 
not mounted, or a permanent I/O error occurred 
while reading from SYS1.IMAGELIB) 


Volume containing SYS1.[MAGELIB was not 
mounted or format record identifier was not 
specified in the DCB or DD statement for the IBM 
3886 OCR data set 


1/O error encountered during search of 
SYS1.IMAGELIB 


Failure to block or unblock results in data checks 
on a printer with UCS 


1/O error encountered during search of 
SYS1.IMAGELIB 


1/O error encountered during loading of forms 
control buffer (FCB) 


Forms control buffer (FCB) image not found in 
SYS1.IMAGELIB 


User totalling: (1) no DCB exit list specified, or (2) 
no block-count-unequal exit address specified, or 
(3) image area address is zero. 


DCBDSORG does not indicate PS (physical 
sequential) for a spooled data set 


DCBRECFM indicates VS (variable spanned) 
records for a spooled input data set 


Expiration date not passed on current data set 
(first data set on the volume); EOV reached for 
output data set on magnetic tape 


Protection mode indicated (password-protected 
data set) if JFCB did not agree with the protection 
mode in the HDR1 label of the existing data set 
(first data set on volume). EOV reached for output 
data set on magnetic tape. 
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113 


143 


152 


153 


154 


155 
156 
214 
215 


216 


221 


222 


223 


226 


ABEND 
Code 


413 


413 


013 
013 


013 
013 


013 


913 


913 


913 


913 


913 


Al3 


Al3 


Al3 


Al3 
Al3 
03D 
03D 


213 


013 


013 


013 


013 


Return 
Code 


38 


3C 


08 


0C 


0C 


BO 


B4 


B8 


BC 


“a 2 


MSS failure. See OS/VS Message Library: VS2 
System Messages for reason codes. 


MSS failure. A MSS volume other than the one 
requested was mounted. 


Data set not open for input 


BUFL or BLKSIZE was less than 16 times the 
specified LRECL, IBM 3890 MICR device 


RECFM did not specify F or FB 


MACRF was not GM or DSORG was not PS, 
IBM 3890 MICR device 


LRECL was not specified, was less than 12, or was 
greater than 48, IBM 3890 MICR device 


JFCB was modified to indicate BLP, but task was 
not authorized 


ENQ issued on data set name; resource not 
available 


An unauthorized user tried to opena 
RACF-protected data set or tape volume. 


Inconsistent data set definition: a multivolume 
data set is being opened. The data set is not 
RACF-protected, and the data set’s format-1 
DSCB on one of its volumes indicates the data set 
is RACF-protected. 


A VSAM data space being opened is ) 
RACF-protected. 


FSEQ before start of volume while positioning to 
start of data set 


FSEQ before start of volume while positioning to 
end of data set 


Tape mark read instead of HDR1 during forward 
space file positioning 


Tape mark read instead of HDRI1 of desired file 
EOVI read on last or only volume 
Volumes not specified in order they were created 


ISAM data set does not have required index 
(format-2) DSCB 


I/O error during reading of DSCB of ISAM or 
BDAM data set 


Incompatible DCB and OPEN operands: 
RDBACK (tape) with variable-spanned records 


Incompatible DCB and OPEN operands: 
INOUT/OUTIN with QSAM MACRE values 


DCBHDR operand was omitted from DCB, IBM 
3890 MICR device : 


SYSIN/SYSOUT data set, (1) QSAM data set 
opened for OUTPUT or RDBACK or (2) BSAM 
data set with POINT macro specified. Neither is 


permitted. ) 


Open Codes 


Internal 
Code 


227 
228 


229 


230 


231 


239 
242 


243 


244 


245 
246 
247 
248 
249 
250 


251 


252 


252 


ABEND 
Code 


013 
913 


013 


213 


213 


913 


213 


913 


913 


913 


213 


913 


913 


913 


913 


913 


913 


013 


Return 
Code 


CO 
20 


C4 


20 


24 


28 


2C 


ZC 


30 


58 


5C 


C8 


Reason 


SYSIN/SYSOUT data set could not be opened 


EXCP appendages requested; neither the program 
loading the appendage nor the appendages being 
loaded were authorized. (Authorized appendages 
are listed in the IEAAPPOO member of 
SYS1.PARMLIB). 


BDAM data set being created, but DCB MACRF 
field specified GET or READ. Only WL 
(WRITE-LOAD) allowed. 


Second or subsequent volume of a DA input data 
set contained more than 16 extents (allocated 
under DOS) 


Second or subsequent volume of a DA input data 
set contained an incompatible split-cylinder data 
set (allocated under DOS) 


Unauthorized user tried to open a checkpoint data 
set with DSORG not PS or PO 


Format-1 DSCB not found. Installation exit 
module encountered an error. 


OPEN, TYPE<=J issued for an ISAM data set. 
Data set names coded in the DD statements were 
not all the same or the JFCB had a different data 
set name than the DD statement. 


OPEN issued to write a data set on a tape volume 
containing an existing data set. The security level 
(password protection or protection mode) of the 
new data set is different from the existing data set. 


Invalid specification of PROTECT. PROTECT 
specified for a RACF-protected tape. 


A volume was requested that contained 127 open 
data sets 


Invalid specification of PROTECT. System tape 
option not in effect. 


Invalid specification of PROTECT. PROTECT 
specified but user not defined to RACF. 


Invalid specification of PROTECT. PROTECT 
specified but request is for an NL tape. 


Invalid specification of PROTECT. PROTECT 
specified but request is for INPUT or INOUT. 


Invalid specification of PROTECT. PROTECT 
specified but volume sequence number or file 
sequence number not equal to one on a tape with 
LABELeSL, SUL, AL, or AUL. 


Invalid specification of PROTECT. PROTECT 
specified for volume being used in a PUBLIC 
volume. This is acommon OPEN internal abend 
code, processed by IFGO190P. 


Error encountered as a result of issuing the 
IEFSSREQ macro instruction. This is an OPEN 
executor internal abend code, processed by 
IGG0196M. 
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Close Codes 


Close (TYPE=T) Codes 
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Open Codes 


Intenal ABEND 


Code Code 
253 413 
Internal ABEND 
Code Code 
61 714 
62 714 
63 714 
64 214 
65 214 
86 314 
87 Al4 
88 414 
89 314 
90 614 
112 None 
121 B14 
122 B14 
123 B14 
124 B14 
125 B14 
126 B14 
234 614 
Internal ABEND 
Code Code 
122 717 
123 717 
124 717 
125 717 


Return 
Code 


34 


i 2 


Error encountered as a result of issuing the 
IEFSSREQ macro instruction during OPEN, DA 
volume verification. 


Reason 

1/0 error during writing of TRL1 
1/O error during writing of tapemark 
1/O error during writing of TRL2 


1/O error during reading of user label on tape 
volume 


1/O error during positioning of tape volume 
1/O error during reading of DSCB 

1/O error during partial release of space 
1/O error during writing of DSCB 


I/O error during reading of identifier (format-1) 
DSCB when SUL is specified 


I/O error during writing of file mark 
Invalid control block(s) found 


Duplicate name of partitioned data set found in 


directory ) 
Specified member of partitioned data set cannot 
be found 


No space left in directory of partitioned data set 


I/O error during updating of directory of 
partitioned data set 


During STOW processing, it was determined that 
the specified DCB was not opened correctly 


Conditional GETMAIN failed during STOW 
processing 


DCBFDAD greater than DEB extent encountered 
while attempting to write file mark (DA output 
data set) 


1/O error during writing of tapemark following 
last data record 


I/O error during writing of trailer label 1 
I/O error during writing of TRL2 label ’ 


I/O error during writing of first tapemark after 
trailer labels (SL) or after data (NL) 


Internal 

Code 
126 
127 


128 


129 


130 


131 
132 
133 


134 


135 


136 


137 


138 


151 
233 


ABEND Retum 


Code 
717 


117 


117 


117 


117 


117 
317 
417 


117 


117 


117 


117 


717 


117 


117 


117 


None 


None 


None 


None 


None 


117 


Code 
OC 


& EE 


20 


24 


10 


08 


2C 


30 


10 
34 


Reason 


I/O error during writing of second tapemark after 
trailer labels (SL) or after data (NL) 


I/O error during backspace of file past second 
tapemark at end of data set 


1/O error during backspace of file past first 
tapemark at end of data set 


I/O error during forward space of file past 
tapemark preceding data for SL data set opened 
for RDBACK 


I/O error during forward space of file past 
tapemark preceding data for NL data set opened 
for RDBACK 


I/O error during writing of file mark 
I/O error during reading of format-1 DSCB 


1/O error during writing of updated format-| 
DSCB 


1/O error during positioning of tape volume for 
NL INPUT or SL OUTPUT data set 


1/O error during forward space of file past 
tapemark following data 


1/O error during backspace of file past tapemark 
following data for data set opened for INPUT and 
LEAVE 


1/O error during rewind or backspace past data 
when RDBACK with LEAVE or INOUT with 
REREAD are specified 


1/O error during reading of TRL1 label to updated 
block count in DCB or ACB 


I/O error during forward space of file past 
tapemark when RDBACK and LEAVE or INOUT 
and REREAD are specified 


1/O error during backspace of file past tapemark 
following data when volume is full and FEOV is to 
be issued 


I/O error during tape volume positioning 
following user trailer label processing 


DCB DSORG was not PS or PO 


DCB was open for input to a a member of a 
partitioned data set 


LEAVE was specified for an invalid data set 
orgainzation 


OUTPUT processing was requested for an invalid 
data set organization 


REREAD was specified for an invalid DSORG 


Extend in DCBFDAD refers to an extent that does 
not exist 
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EOV Codes 
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Internal 
Code 


| 


108 


111 


112 


113 


147 


148 


ABEND Return 


Code 
937 


937 


937 


937 


937 


937 


937 


137 


937 


737 


737 


737 


137 
B37 


637 


137 


137 


237 


Code 
28 


2C 


30 


34 


38 


3C 


24 


24 


34 


38 


3C 


E 


0c 


04 


Reason 


EOV processing determined that the caller is not 
authorized to access the data set or the tape 
volume on the new volume. 


Inconsistent data set or tape volume definition: a 
previously allocated multivolume data set is being 
processed for output. The data set's first volume is 
RACF-protected; the current volume is not 
RACF-protected. 


EOV processing determined that the data set’s 
new volume is RACF-protected (the format-1 
DSCB indicates this), but the data set is not 
RACF-protected. 


The VSAM data space requested at EOV is 
RACF-protected. 


RACF processing failed to add a volume to an 
existing RACF-protected DASD data set when it 
extended the data set to a new volume. 


Inconsistent data set definition: a previously 
allocated multivolume data set is being processing 
for output. The data set’s first volume is not 
RACF-protected; the current volume is 
RACF-protected. 


Inconsistent RACF definition. Either a previously 
allocated multivolume DASD data set or a tape 
data set is being processed for output. The current 
volume being processed at EOV is defined to 
RACF but not as part of the same volume set as 
the previous volume. 


Expiration date not passed on current data set 
(first data set on the volume). EOV reached for 
output data set on magnetic tape. 


Protection mode indicated (password-protected 
data set) if JFCB did not agree with the protection 
mode in the HDRI label of the existing data set 
(first data set on volume). EOV reached for output 
data set on magnetic tape. 


MSS failure. See OS/VS Message Library: VS2 
System Messages for reason codes 


MSS failure. A MSS volume other than the one 


requested was mounted 


Format-1 DSCB not found. Installation exit module 
encountered an error. 


1/O error tapemark 


Next volume cannot be mounted because no unit 
is available 


1/O error during reading of label, writing of 
tapemark. or positioning of tape volume 


1/O error during positioning of tape volume in 
preparation for label processing 


I/O error during reading of trailer label (header 
label if data set opened for RDBACK) 


Block count in DCB does not match count in 
trailer label 


JD 


J 


dé 


Internal 
Code 


149 


150 


151 
152 
153 
155 
156 
158 
160 


161 
162 


163 
164 
165 
168 
171 
174 
175 
176 
177 
178 


180 
182 
183 


184 


185 
186 


187 


ABEND Return 


Code 
637 


137 


637 
637 
637 
637 
B37 
637 
637 


637 
637 


637 
137 
237 
B37 
737 
337 
737 
637 
B37 
737 


137 
437 
E37 


E37 


B37 
D37 


737 


Code 
08 


10 


14 


2C 


04 


OC 


Reason 


1/O error during positioning of tape volume 
following user trailer label processing 


1/O error during positioning of tape volume to 
logical end of data set following trailer label 
processing 


I/O error during positioning of tape volume for 
OPEN LEAVE or FEOV LEAVE 


1/O error during positioning of tape volume for 
OPEN REREAD 


1/O error during positioning of tape volume when 
DISP=PASS and no OPEN option 2 specified 


I/O error during performing of rewind of tape 
volume during volume positioning 


Next volume cannot be mounted because no unit 
available 


1/O error during rewinding of next volume before 
verification of volume label 


1/O error during reading of volume label of tape 
volume 


1/O error during positioning of NL or NSL tape 


I/O error during positioning of tape volume to a 
concatenated data set : 


1/O error in positioning tape to be read forward at 
label (if SL volume) or at data (if NL volume) 


1/O error during reading of header Jabel or trailer 
label during opening for RDBACK 


DSNAME in tape label does not match that in 
JFCB 


Next volume cannot be mounted because no unit 
available 


1/O error during reading of DSCB for 
concatenated partitioned data set 


No EODAD routine had been specified in DCB 
when end-of-data detected 


1/O error during reading of DSCB for user trailer 
label processing 


Concatenation of data sets with unlike attributes 
found but not specified in DCB 


Unable to convert VTOC during EOV secondary 
allocation 


1/O error during reading of extension (format-3) 
DSCB 


Invalid trailer label read 
FEOV issued with invalid DCB 


DA output data set; no space on the next specified 
volume or duplicate data set found. 


No more space available on volume, all volumes 
used 


Next volume cannot be mounted, no unit available 


Primary space exhausted, no secondary space 
specified 


1/O error during writing of file mark 
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internal ABEND Return 


Code Code Code Reason 
189 737 08 I/O error during reading of volume label 
or c q 
190 737 04 I/O error during reading or writing of DSCB J 
191 137 B 18 I/O error during positioning of SL tape to first 
data record 
192 637 44 1/O error during reading of sense bytes to check 
for file protect ring on data set opened for INOUT 
194 637 10 1/O error in positioning tape volum when data set 
opened for RDBACK 
195 137 20 Invalid header label read 
196 637 4C I/O error during positioning of tape to be read 


backward at label (if volume is SL) or at data (if 
volume is NL) 


197 837 08 New JFCB extension block not found 

198 A37 04 EOV (SVC 55) issued against a DCB that was not 
open 

199 437 OC DEB not in DEB table 

200 005 04 Required address not specified, IBM 3886 OCR 
device 

201 005 08 RBL READ not specified, IBM 3886 OCR device 

202 002 OC Record or block length greater than DA device 
track capacity during QSAM PUT or BSAM 
WRITE 

203 002 10 RDW of variable-length record specified more 
than 32,752 bytes during QSAM PUT operation 

204 002 14 Record length greater than blocksize, during | 
QSAM PUT operation 

205 002 IC Record length greater than track capacity 
encountered during BDAM create operation 

206 002 20 Block larger than secondary space quantity 
specification encountered during BDAM create 
operation 

207 002 24 Block larger than primary quantity specification 
encountered during BDAM create operation 

208 002 28 Processing error in BSAM or QSAM, or error 
during ISAM open or close 

209 008 04 Unable to allocate more space on current volume 
during BDAM create operation 

210 008 08 Permanant I/O error during BDAM create 

211 020 04 BDAM open error 

212 020 08 BDAM open error 

213 002 18 Invalid record encountered during QSAM PUT 
operation 

218 737 24 Missing member name detected during BLDL 
while searching for TTR of a concatenated 
member 

219 A37 08 DEB does not point to DCB. ° 

230 C37 04 Second or subsequent volume of a DA input data 


set contained more than 16 extents (DOS 


allocation) 

231 C37 08 Second or subsequent volume of a DA input data J 
set contained an incompatible split-cylinder data 
set (allocated under DOS) 
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Register Usage 


Internal 
Code 


232 


240 


241 


242 


245 


247 


248 


249 
250 


252 


253 


254 


ABEND Return 


Code 
737 


937 


937 


937 


937 


B37 


837 


937 
737 


337 


002 


002 


Code 
2C 


10 


1C 


OC 


OC 


20 
28 


08 


08 


Reason 


File mark could not be written during EOV 
processing; DCBFDAD extent number too big 


Second or subsequent volume of checkpoint data 
set was not password protected 


Second or subsequent volume of a non-checkpoint 
data set was found, during EOV processing, to be 
a password-protected, checkpoint data set 


Checkpoint security interface established: FEOV 
macro cannot be issued 


DSCB does not match the old DEB, which is used 
during repositioning by FEOV 


A volume was requested that contained 127 open 
data sets 


A second OPEN macro was issued for a data set 
on a tape volume 


ASCII volume accessability byte not blank 


Error encountered as a result of issuing the 
IEFSSREQ macro instruction during EOV, DA 
volume verification or EOV, DA output, get more 
space. 


No EODAD specified in the DCB for a dummy 
data set 


Record with RDW less than 4 encountered during 
QSAM GET operation 


Record or block length greater than 32.767 
encountered during QSAM PUT or BSAM 
WRITE operation 


The use of all registers is consistent throughout DCB or ACB processing. The 
following list indicates for each register the register number, its equated 
name(s), and its use. Where a register has more than one equated name, the 


use depends on the equated name. 


The contents of register 0 and 1 and 9 through 14 are saved and restored by 


the service routine, IFGO19RA. 
Use 


Register 


wa ff ww NN 


Name 


RO 
RI 


RDCB 
RBASE 
RCORE 


RES 


RPAR 
RWTG 


R6 


RPARC 


R7 


RWTGC 


R8 


Work register and parameter register 


Work register and parameter register 


Address of current DCB or ACB 


Base register to be modified on entry to a module 


Current work area address 


Address of the common routine 


Address of copy of parameter list in protected storage. 


Address of WTG table 


Work register and parameter register 


Address of current entry in copy of parameter list 


Work register and parameter register 


Address of current entry in WTG table 


Work register and parameter register 
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Internal ABEND Return 


Code Code Code Reason 
9 RTIOT Address of TIOT DD entry 
10 RUCB Address of UCB 
11 RDEB Address of DEB 
RB Work register and parameter register 
12 RC Work register and parameter register 
13 RD Work register and parameter register 
14 RET Return register when a module branches to [IFGOI9RA to issue a 


WAIT macro, offset of a branch-table entry in the next module 
to receive control when a module is branching to IFGOL9RA to 
transfer control, or work register 


15 RF Work register 


Using the Transfer Control Table 


The transfer control table can be used to add a temporary change to an 
O/C/EOV module and to locate a given object module in a storage dump. 
An example of a transfer control table appears in the ‘““Data Areas’”’ section. 


Locating an Object Module in a Storage Dump 


Unlike other system control program components, the module name of 
O/C/EOV modules appears at the end of the module in the storage dump. 
The 8-byte module name follows the maintenance patch area and precedes 
the date of assembly, the release or PTF number, and length of the module. 
Figure 5 below shows the module name of module IFG0202J. The object 
code precedes this module name. 


Unresolved external 
reference to IFGO200P Maintenance patch area 


PMSS VIRTUAL STORAGE 9 MP 


OCDIPAG! - U321T ABEND 7/31 (JLG) PAGE 480 


£485152 5448703C 37392100 00010000 01000001 00000000 io ise By eRe a tavadenes Paes eee ve opann a evee.git-oes 
090000000 0000C9Cc7 CHYOFIFS CIESCID8 C2C2E2C9 C9C&C7FO bre ere ere er ern IGGO19AVAQBBSIIFGO* 


00E78540 18101418 20122434 
00E78560 01000201 00000001 


00E78580 F2FOF2D1  FA0Q0023 O1c40000 OOFFFFFC J019130 92006008 FOF2FOF2 D2E78608 82020 sca D ieee See wos ae 0202KxX..* 
O0E785A0 90000000 60000060 00000000 006000000 oO0000000 00000000 *0200P..........000000 aie 
LOCATION 00E785C0 TO OOE785DF AJL CONTAIN 00000000 FM UN EREN rt tn en nee nena ences 
00E785E0 UO000000 S0Cd0d00 coD00000 on000000 9 ? 

e 00E78600 EOFOF GEO FSFOC608 05305800 d071045FO 350007 soIBuTIn’. 6 “#yg00b0. ; 
00E78620 30249106 90034780 302C47FO 34709531 20284780 F 347058FO 6010900F# FO28B20A Ode det Nee Ohh te Oe ae 


00E78640 12DD980F FO284770 § 32AC5B8BO 202C5810 § BO004110 emmy 
00E78660 TOOS351A 4780308C 47F03058 
00£78680 10044770 3050 02FC98B 


OE 786A0 J2AC9214 Neg! 


Release or PTF Length of module Module name _— Date of assembly 
number (Y02080) (x°608” bytes) (IFG02023J) (7/12/73) 


Figure 5. Storage Dump Showing the Transfer Control ! able tor Module IFG0202J 


aaa ae eae eles eee ener eerie ern el 
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Adding a Temporary Change in the Maintenance Patch Area of 


an O/C/EOV Module 


A maintenance patch area is included in each O/C/EOV object module as 
the result of the expansion of the XCTLTABL macro. The maintenance 
patch area is 5% of the size of the object module and is located at the end of 
each module, immediately preceding the 8-byte module name. You can use 
the AMASPZAP utility to add a modification to an object module: 


1. Locate the transfer control table in the source code. 


2. Locate the maintenance patch area in the transfer control table. The 
beginning of the patch area is the the third lable from the end of the 
transfer control table (and the end of the module). 


3. Using the displacement (location-counter value) of the maintenance patch 
area, verify that the patch area is all zeros, and apply the modification to 
the object module. 


Notes: 


e Remember to perform a cold start of the system after the alteration. A 
warm start will not reformat the PLPA to include your modification. 


e Unresolved V-type address constants (VCONSs), which are 4 bytes of 
zeros, Sometimes immediately precede the maintenance patch area. Be 
careful not to modify the VCONs when adding a patch. 


Using Error Records for Debugging 


The O/C/EOV problem determination and system recovery routines record 
work areas and control blocks when abnormal termination conditions are 
encountered during O/C/EOV processing. The sections that follow describe 
the kinds of information recorded and how to use it. How to invoke the 
optional work area tracing and module-name listing routines is also described. 


ABEND Error Recording Initiated by O/C/EOV 


Both the O/C/EOV problem determination and recovery routines trace 
control blocks and work areas when abnormal termination conditions are 
encountered in O/C/EOV processing. 


The problem determination routines are invoked only when the error is 
associated with known, describable errors. These errors, called determinate 
errors, are identified with a system completion code and a return code in 
register 15. The problem determination routines (described in Diagram 6.1 
and Chart 5.1) are not invoked when an indeterminate error (for example, a 
program check) is encountered. 


The O/C/EOV system recovery routines are called by the system 

recovery /termination manager (R/TM) as a result of the ESTAE macro 
issued during Open, Close, or EOV initialization. These recovery routines are 
called on every ABEND condition, determinate and indeterminate. 


The problem determination and recovery routines pass information to the 
Generalized Trace Facility (GTF). The records passed to GTF appear in the 
ABEND dump. The records will also be written to the GTF data set under 
the following conditions: (1) if GTF is active and operating in external mode 
while the job to be traced is running and (2) if the operator responds 


“TRACE=USR” when the GTF message “SPECIFY TRACE OPTIONS” 
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appears at the operator’s console. GTF makes the records available to the 
ABDUMP routine and writes them to the GTF data set specified by the user. ' 5 
The user must define the data set that is to be used for the GTF output. For 


information on how to use GTF, see OS/VS2 System Programming Library: 
Service Aids. 


The results of the GTF trace that is put into the GTF data set can be 
examined by executing the AMDPRDMP service aid utility. You should 
specify the following parameters on the EDIT statement of AMDPRDMP. 


EDIT DDNAME=name of GTF data set,\USR=DMAI1 


DMA is the name GTF uses to identify data put in the data set by 
O/C/EOV routines. The job control language used with the EDIT statement 
is described in OS/VS2 System Programming Library: Service Aids. 


ABEND Error Recording by Problem Determination Routines 


When a determinate error arises during O/C/EOV processing or during 
Open or Close access method executor processing, the problem determination 
routines gather data related to the abnormal termination condition and related 
information, and then issue the GTRACE macro to pass the information to 
GTF. After issuing the GTRACE macro, the O/C/EOV routines issue the 
ABEND macro instruction to pass control to the R/TM. The information 
passed to GTF will also appear in the ABEND dump. It will also be written to 
the GTF data set. An example of GTF output appears in Figure 6. 


This GTF output resulted from a 213 system code with a return code of 
X‘04’, meaning that the format-1 DSCB for the data set to be opened could 


not be found. J 


The problem determination routines write the data set name from the JFCB 
into the GTF data set. 


ABEND Error Recording from the O/C/EOV System Recovery 


Routines 
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The O/C/EOV system recovery environment is established via the ESTAE 
macro, issued when storage was obtained during initialization of the 
O/C/EOV function. The O/C/EOV system recovery routines receive 
control from R/TM when any ABEND condition (determinate or 
indeterminate) is encountered during O/C/EOV processing. 


When given control, the O/C/EOV recovery routines free storage, dequeue 
resources, and force data sets to closed status. Before doing any of these 
things, however, the O/C/EOV system recovery routines attempt to preserve 
a picture of the O/C/EOV chained work areas as they exist at time of entry. 
This is done by building a recovery routine control block save area 
(RRCBSA). Copies of the O/C/EOV chained work areas are saved in the 
RRCBSA. 


Like the problem determination routines, the O/C/EOV system recovery 
routines issue the GTRACE macro instruction in order to record the contents , 
of the RRCBSA built on entry. The RRCBSA segments are made available to 
the ABDUMP routine and written to the GTF data set by GTF. 


© FT WAAL /STRACE ent 


WAOUN TT 
~y30 ANA 


Sheree Ape Tener (G1 Te atGIC HAD 
~ if L6yNn4 


grow rf 
whit Aleve n BLIntek Ce ARs 
4). PYi 


TIME 80738.702779 


*** DATE DAY 274 


YEAR 1973 


TIME 22.18 eee 


USRFF FFF JFCBDSNM 


DBC6C9D3 CSE7THO4N YOKOKXOND 4O4O4OKO 4OUOKONO 4ONO4OND 4OUDKONO 4OuOUONO 4OUDKO4O 4040DKO4O 


GAULLE 


Figure 6. Output from the GTF Data Set Resulting from Problem Determination ABEND Error Recording Routine (213 - 04 
ABEND) 


80739.393241 


Want? GR S325 


When O/C/EOV recovery processing has been completed, the RRCBSA is 
used to refresh the O/C/EOV chained work areas, which may have been 
modified during recovery processing. The RRCBSA is then freed. Note that 
an RRCBSA will not appear in a dump of the original error, but it will appear 
in a dump of an error that occurs during recovery processing. 


The contents of the RRCBSA are defined in Figure 7. An example of a dump 
of this save area is shown in Figure 8. 


The recovery routine gained control in this example when a 213 - 04 error 
condition was encountered (no format-1 DSCB could be found for the data 
set being opened). 


The RRCBSA is made up of segments. Each segment begins with an ID of 
CBSA, which appears in the EBCDIC column of the dump. The first CBSA 
segment obtained is different from subsequent segments; in addition to a 
prefix and a section containing a copy of a control block or work area, the 
first segment contains a header. The header identifies the RRCBSA, provides 
the job and step name of the step that encountered the 213 ABEND 
condition and the date and time the error occurred. In Figure 8, the 
bottom-most segment, which contains the header, is the first segment. This 
segment is chained to the segments obtained subsequently using the prefix. In 
addition to the header, the first segment contains a copy of the initial work 
area obtained to open the DCB. The ID of this work area is O/C, which 
appears as “O.C”’ in the EBCDIC column. This initial work area contains a 
copy of the base prefix, an extended prefix, and a WTG table. Addresses in 
these copies reflect original storage locations. The contents of these locations 
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Work area or control 
block ID 


Work area length 
in bytes 


Prefix 16(10) 


Storage protection 
key and subpool 


24(18) 
t previous prefix 


JOBNAME 
STEPNAME 


Header 


ae 
aK 
* 
* 
* 
* 
* 
ss 


Copy of work 
area or 

control 

block saved by 
recovery routines 


O.C.E.D RECOVERY ROUTINE 
CONTROL BLOCK SAVE AREA 


eeeeee 9OSSSSSS 
DATE «weeseeveeses YY.DDD 
TIME .......-.- HH.MM.SS 


4(4) 
4 bytes of zeros 


12(C) 


Theader ora copy of 
‘a work area 


20(14) 
t initial (base) prefix 


28(1C) 


T next prefix 


JSIIT IIIS 


+*etekt & & F 


Figure 7. Contents of Recovery Routine Control Block Save Area (RRCBSA) 


may have been changed by recovery or termination processing. The address in 
these copies can be used, however, to find information in the copies. 


The second segment of the example contains a copy of the main work area 
associated with the DCB. Its ID is ““OPWA.” The third segment contains a 
copy of the DCB (ID is ‘‘DCB”’), and the fourth segment is an area that 
contains a channel program (ID is ““CCWS’’). Each of these segments is 
chained from the first segment using the prefixes. The prefix of each segment — 


begins with the ID (““CBSA’’). 


Each of the work areas obtained by the O/C/EOV routines has been 
assigned a 4-byte ID to make the work areas easy to identify in storage 
dumps. These IDS appear in the first word of every prefix of every work area 
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(A) Prefixes to the RRCBSA segments. 

RRCBSA header. 

© Prefix included in the copy of the work area or control block. 
| 


Copy of a control block or work area obtained by the main-line Open routines. Each area is identified by an ID in the 
first four bytes of its prefix (see C). 


Storage locations used to align [Ds in the EBCDIC column. 


Figure 8. Storage Dump Containing the RRCBSA Passed by the O/C/EOV Recovery Routines 


gotten by O/C/EOV routines and saved in the RRCBSA. Each of the work 
areas and control blocks is obtained with a prefix. The contents of the prefix 
are described in Figure 7. The IDs and the contents of the associated work 
areas follow: 


Work 
Area ID Contents 


O/C The initial virtual storage obtained for an Open or Close request. This area 
contains, in addition to the base prefix and an extended prefix, a WTG 
table, a copy of the user parameter list, an audit trail, and a service routine 
(IFGO19RA) work area. 


OPWA A main work area associated with one DCB or ACB being opened. 
CLWA A main work area associated with one DCB or ACB being closed. 


TCWA A main work area associated with one DCB being temporarily closed. 
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Work 
Area ID 


EOV 


ULWA 
JFWA 


Fl 


F2F3 


SFWA 
SEWA 


Contents 


A prefix, extended prefix, and a main work area associated with J 
the DCB or ACB that requires EOV processing. 
User labels are read into and written from this area. 


When a JFCB extension is read in by an O/C/EOV routine, it is read into 
this area. 


When more than one format-1 DSCB must be read in, the second and 
subsequent format-! DSCBs are read into a work area with this ID. 


When ISAM data sets are being processed, the format-2 DSCBs are read 
into an area with this ID. When data sets with more than three extents are 
being processed, the format-3 DSCBs are read into this area. 


Type-14 and -15 SMF records are built in this work work area. 
The Open/EOV password protection routines read the DSCB for the 


PASSWORD data set and password records into this area. 


PDWA 


RJIWA 
CCWS 
MSGS 
RROA 
TCOA 


QMGR 


CBSA 


SSOB 


When the problem determination routines are invoked, this work area is 
used to gather diagnostic information. 


ID of work area used by the RDJFCB routine. 

ID for a work area obtained to execute an extended channel program. 
Work area for building messages. 

ID for a work area obtained by the recovery routines. 


ID for a work area obtained by Task Close (data management resource 
manager). 


ID for a work area for obtaining and updating JFCBs using the QMNGRIO 


interface. 

ID for acontrol block save area (RRCBSA). One of these save areas is J 
obtained by the recovery routine for each control block and save area to be 

saved for error recording during recovery processing. 


SSOB parameter list, SSOB parameter list pointer, and register save area for 
JES IEFSSREQ macro interface. 


Certain control blocks are also saved in the RRCBSA. Their IDs are: 


Control 
Block ID 


DCB 
DEB 
DEBX 
DEBT 
UCB 


Contents 

Copy of user’s DCB in protected storage. 

Data extent block associated with the data set being processed. 
DEB extension 

DEB table associated with the job step. 


Unit control block representing the unit on which data set being processed is 
mounted. 


ABEND Error Recording in SYS1.LOGREC 


The system diagnostic work area (SDWA) is passed among the various levels 
of system and user recovery (STAE, ESTAE, and FRR) routines. It is used to 
pass information among the recovery routines and to collect and record 
information about the environment in which the error occurred. The 
O/C/EOV recovery routines put the following information in the SDWA: 


1. The CSECT name of the O/C/EOV routine that encountered the error 
will be moved into the SDWAMODN field. 3 
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2. The CSECT name of the O/C/EOV routine that encountered the error 
will also be moved into the SDWACSCT field. 


3. The CSECT name of the O/C/EOV recovery routine handling the error 
* will be moved into the SDWAREXN field. 


4. Into the variable area of the SDWA, the O/C/EOV recovery routine 
moves the O/C/EOV recovery routine parameter list (RRPLIST). The 
contents of the list follow: 


Offset 
0 (0) 


1 (1) 


2 (2) 


Length 


| Eee 

111.111 
Leclals, 

11.. 111. 
1.11.11 
1..1 111. 
1..1 11.1 


1 


Name 


RRFUNCTN 


RRFOPEN 
RRFOPEN]J 
RRFCLOS 
RRFTCLOS 
RRFEOV 
RRFFEOV 
RRFRJFCB 
RRFDADSM 


RRFALLOC 
RRFEXTND 
RRFPRLSE 
RRFLSPAC 
RRFOBTN 
RRFRENAM 
RRFSCRTH 


RRFLAGS!1 


RRFUSREX 
RRFAMEXG 
RRFAMEXR 
RRFAMSTR 


RRFNSL 
RRFSMF 
RRFTRACE 


RRFLAGS2 


RRFFIN 1 


RRFENQPW 
RRFQMNGR 
RRFPRDET 


RRFENQUL 


Description 


Identifies which O/C/EOV or DADSM function 
was in control at the time the error occurred 


Open 

Open, Type=J 
Close 

Close, Type=T 
End-of-Volume 
FEOV 

Read JFCB 


Indicates that one of the following DADSM 
functions was in control at the time the error 
occurred 


DA space allocation 

Extend 

Partial release 

LSPACE 

Obtain 

Rename 

Scratch 

Identifies the functions that have received 


control from the O/C/EOV and DADSM 
modules 


User exit routine in control 
Access method executor in control 
Access method executor returned control 


Access method executor string (e.g., VTAM or 
VSAM) in control 


User’s NSL routine given control 
SMF in control 


Trace routine in control 


Indicates key functions completed 


First object module of the function has 
completed 


Enqueue on the PASSWORD data set , 
QMNGR component given control 


The O/C/EOV problem determination routines 
have been given control 


Enqueue on a user label track 


Diagnostic Aids 197 


ABEND Error Recording in SYS1.LOGREC 


Offset Length Name Description J 
3 (3) 1 RRFLAGS3 Indicates the type of termination that is in 
progress 
wl... RRFNRTCA No RTCA (same as the STAE diagnostic work 
area, SDWA) was passed 
wl...  RRFINFC Final pass made by the Force Close function 
wil... RRFFCEXC Force Close executor in control 
. L.. RRFTERM Special termination entry 
4 (4 4 RRIWRKAR Address of the recovery routine work area 
8 (8) 4 RRIRETRY First-level reccovery routine bypass address 
12 (C) 4 RRXRETRY For O/C/EOV, this is the recovery routine 


executor bypass address 
RRUCBPTR For DADSM, this is the UCB address. 
16 (10) 4 RRMLRTRY O/C/EOV retry pointer 


20 (14) 4 RRFWORK Internal communications word 


Problem Determination Optional Work Area Trace 
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The optional work area trace, normally used when a task fails repeatedly with 

evidence of an O/C/EOV problem, traces the ACB or DCB and the 

Q/C/EOV work area associated with the ACB or DCB. This trace also 

includes a record of the address of the WTG table and the address of the 

current entry in the WTG table after each O/C/EOV module executes. J 


The user requests the optional work area trace by specifying 
DCB=DIAGNS=TRACE (AMP=‘TRACP’ for VSAM) on the DD 
statement of a data set for which the trace is desired. The work area and 
control blocks are written to the GTF data set every time IFGO19RA is 
entered. No tracing is done when control is passed to the O/C/EOV problem 
determination and recovery routines, the initial and final modules of each 
function of O/C/EOV. Tracing occurs only during access method executor 
processing for the SAM, BDAM create, and BPAM executors. 


Figure 9 shows the GTF output resulting from activating the optional work 
area trace. In this example, the Open routines abnormally terminated the task 
because the format-1 DSCB for the data set could not be found. The 
associated system and return codes are 213 - 04. The traced record in Figure 
9 includes a copy of the DCB, a copy of the O/C/EOV main work area 
associated with the DCB, various fields from the main work area, and the’ 
WTG table. This record will appear several times in the GTF output, once 
each time an Open object module is given control. 


Because the optional work area trace increases execution time considerably 
and produces copious output, it should be used only when other diagnostic 
techniques fail. 


SAMOLE GTF TROCE OF 213-34 #AENC WITH CPEK WORK AREA TRACE EXTERNAL TRACE - DD TRACE PAGE 0093 
woe MATE CLAY 274 YEAR 1973 TIME 01.22.18 one 


USRFEF FEF CCR CEVICE INTERFACE 
9c99040"% ¢cane0cs) 79090030 90000000 9990000 
CCBAUFN[ NDCARUFCA DCABUFL DCBNSNRG DCRIOB8AN CCBHIARC CCBEQDAD FPCBRECER PCREXLSY NCATINT 
co 000.90) 3000 4000 ¢eecooooc, ce C4B859C an 000000 onss 
(A) CCBMACPF PCBEFLGS CCPCEBS#C CCBROFLGS 
§909 90 C620E0 ¢3 
ACCESS WFTHCO INTERFACE 
cCSuy) acenscel €00090C1 39009050 00009000 000)0001 03000001 09nH0081 47000059 20000001 
acecesto aj0rccdl 
TIME 6C738.51546C 
USRFF FFF wXAREA 1 VOL LBL. FILE LAI. CSCBS, CR *SG AREA #10: @14 «18 #1C 220 24 
OCOOIL1G 00063NNB BCC4R73C 4000A3AK COO63DE0 80048514 O0063FCR OOOLASIB OHO0E3FFO OONLDFOC 
#28 2¢ 430 #34 +38 +3C #40 44 +48 o4C 
CO1E3CB OCOSPScS CCCOCIte 09000010 00000008 coad0000 cyo00000 0000000 ang00000 90000000 
#50 o54 456 +5C +60 
SOCXASEE CO063680 OOC63DEO0 20FA0000 ¢a000000 
TIME 8C736.519374 
USRFF FFE WKAFEs 2 JFECP-JECBECSNM 
CBLOCGNS CSE PG & 1 42604340 6264069069 436°6)6) 606906040 494049640 49404N4N = 4NANaAnad 409604440 
(CONT.) JECSEL A TFCR TSO JFCNISCR JFCFCAIC JFCAVPTR FECREAPY YFCRITVYe® JFCANTTPS 
4967474) 4676165 49404540 13 297009 ccowcoo cecocc 990000 O2 09 
JOFCRRISC SFOCAVLSO 8 JFCRMASK JFCACRDT JFCRXPLT JFCBINDL SECRIND? JFCRUFAN JECRY TAR 
0.0% COCIIWSD «990924699 «Z1OCRS cree C4 49 nn an 
JFCKUFL JECFOrPT CEVY CHAR JFCDEN JFECLIMCT JFCOSORG JFCRECFM JFCOPICD JFCALKSI) JFCLRECL 
fC 23 a2 C9 ier] cgooca 9900 0d 00 Anny qaan 
JSFONCP JFECNTM SEGMENTS JFCCPRI JFCSOmA RESERVED JFCANYCL 
© ec 09 u9C90909 00 a0 9000 ov 91 
JECSVELS DECREXTL | JFCRFXAD 
C808DBT3S C€9C2404)3 40404040 40404040 404040480 4C404C4C 40404040 4940 6” 000000 
JECAPQOTY JFCACTRI JECBSOTY RESERVEO JFCBEDQTY JFCBSPAM JFCBABST JFCBSBNM JFCANR®LH -DFCAYVLCT 
990009 09 cooaoa co cooooo coooac ccoo 000000 orooon Ol 
JECBSPTAN 
cc 
TIME 8C73A.522724 
USRFF FFE wxeFFs 3 CKECP 
cccoczcrca 
® [{ORP-1OKFLAGL LOPFLAG2 INSSENS) JFORSENSE FCOFCPCC INBECRPT INRELAGZ = TNALOBAN TNRSTATS 
02 99 ag vd TF ee) 20 nanann trva) 
TIBSTATL JOBCKT (CPSICCC ICRSTAQT) LAwGrT ICRNCEPT |[PARESTP ICRINCA® tnetperr 
on” 039Cu 4c 563550 ay 063F 29 94990000 a00n nang 
excaarece 
cecucecc | =(INltt.4 
CEP-CyTERPCEAa TEBCELGS OFBIRBAD CFSAMPATR OMFRESTAT TFPFLES) @ESERYEL 
sol C4) ars) "09999 ne C3 ae) 76 
CP BNMEXT FLERE SREG CERPRICR JFRECRAD EAFROVG/NERCE RIC (CFRCCHAr NEREXSCt NERAPC AP NFACYMNN 
a1 CT WAND *) £99709 “F 76 2F 20 eA NAVEN "0 
CFRRYUC8ED MEARTAUM RMEFSTRACO CEASTRHR CFREALCC CEFFNCRR PF ANMTOK 
eo¢c319 C903 ROCs 377¢9 iuC#K F314 TEEF 
COR-CCPLFELGS/NCPCTE AC 
clcé zF 1c 
TITWE RCT28 252622? 
CSPFFE FFF we APE A & FF CC wh SOK CCal Cxcl a2 C¥CCw? CxCOws OVE RR 
Z21%E3F 150 4G TE SELOBF SD SID VEVERF SY GM TIH 2976 3FeR BTDAANNZE NADH AE AT yanecarar 
CKO we, excCwl 
CHTEPNF GC TIAN ONE GTN yB8 Alt 367 
PED SAVE-OXREGS SHOCK DFE (,8 Per toc Cweeer Puprece RKREGA PYRE 
Omprese STP FSD TVA ae Fol ae TLL TSE CT TBA ge SAANAShE NAAR AE ER 
M1 sc-Uxee spAn PXTGENT/PXCALLES CKORTMOO SZ ORE TIC PXWP TT TO SAB, PE ICONE OWE TL 
30 7703 lout 233299 ANRAAEF A Arr AANA 
©) FPEN/CUASE (OK APF EAL WITH MES ELTEL NS ON NEXT PENF es STAXT CE WIG TARLE ENE Ery WORK ALFA FALY, 


wT TRL *15C~ PRYPCONM/NAVOL MTL (KM DTS UXVELMTASCXVOL SFC PPM Ow] OXpNPw IEOWNT TDs 
CBOSP KN? COT? Pls sepia i ee, NE IIGAN 

CxYeE Coen FARPATTRQ PARMCOSZ CRKUXTLS CXCPCL Sa PF RKPATES CEMENT OVS SOUNIF UTE Newer pe 

C9CorTtF FYFO F4acs 220I30 ree be) we “179 1a agrann “CORT 

COXVFLSP! TRVELSO2 UXVCLSe3 MAACLATY Ape acs 

OC 467° F596 “SBIFSCL JITA 18630," : tw 5 AAAADN 

Te 8.52935 
NSQEF FFE al eTG*CIC SUE WIRATIRQA wth MANS? 

EuC5 q37 nnene 
wt Cb 
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@) A formatted copy of the DCB that was being opened when the error condition was encountered. 


The first 100 bytes of the O/C/EOV main work area associated with the DCB being opened. Since no labels or DSCBs had 
been read in when the error occurred, this information is not significant. 


© The JFCB being used by the Open routine. 
©) The internal I/O control blocks used by the Open routine. 
© Various fields from the main work area followed by portions of the WTG table associated with the OPEN request. 


Figure 9. Output from GTF data set resulting from the optional work area trace 
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The Optional Module Listing Routine 
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IFGO19RA contains a module trace routine that, when active, lists the -: 
CSECT name of every O/C/EOV routine given control during O/C/EOV -) 
processing. 


This tracing routine is located in the maintenance space of IFGO19RA. 
Unless you modify the code, the routine is not entered. To activate the trace 
routine, change the NOP instruction at location RESTRACE to an 
unconditional branch (X‘47F0’) to location RESNOP. To make this change, 
you will need to locate IFGO19RA in the PLPA. The address of IFGO19RA 
is at offset X‘110’ in the CVT; that location is labeled CVTDMSVR. 


Each time IFGO19RA transfers control, the activated trace routine issues a 
WTO macro instruction with an 8-byte message text of the CSECT name of 
next CSECT to receive control. The message is assigned routing codes 2 and 
11, so that it is sent to the console and is written to the SYSOUT data set 
associated with the job. You can route the message to other devices by 
changing the routing code, as described in OS/VS2 Supervisor Services and 
Macro Instructions. 


The tracing routine is not reentrant; if more than one task tries to use it at the 
same time, it may be impossible to tell which messages result from which task; 
second, messages resulting from the two tasks may overlay each other in the 
O/C/EOV work area message buffer, so that some of the messages (CSECT 
names) are lost altogether. 


If SMF is active, EOV may transfer control to Close routines to process SMF 
records. The result is that Close CSECT names appear between EOV CSECT 
names in the list. 


When the trace routine gets control from the O/C/EOV modules, registers 2 J 
through 8 are used as follows: 


e Register 2 contains the address of the first DCB or ACB to be processed 
after the transfer of control. 


¢ Register 3 contains the entry point address of the module currently in 
control. 


¢ Register 4 contains the address of the O/C/EOV work area associated 
with the DCB or ACB whose address is in register 2. 


e Register 5 is the base register. 


e Register 6 contains the address of the WTG table for the Open or Close 
operation being performed. 


e Register 7 contains the address of the parameter list entry for the DCB or 
ACB whose address is in register 2. 


e Register 8 contains the address of the WTG table entry for the DCB or 
ACB whose address is in register 2. 


If this routine is modified, registers 0, 1, 3, and 9 through 15 may be used 
without their contents being saved or restored. 


C 


Module Listing Routine Examples 


Various combinations of O/C/EOV modules are executed based on the 
operation requested, the processing mode (input, output, or update), and the 
kind of device on which the data set resides. The module lists that follow have 
been prepared to indicate the flow of control during successful execution 
under several typical conditions. The conditions treated and their associated 


OPEN Trace Examples 
OPEN Example 1—SYSIN 


example numbers are: 
OPEN Example 

SYSIN data set 

SYSOUT data set 

DA input data set 

DA output data set 
Two-volume JSAM input data set 
SL tape input data set 

SL tape output data set 
NSL tape input data set 
NSL tape output data set 


EOV Example 

EOD, SYSIN data set 

EOD, DA input data set 

EOV, two-volume DA input data set 


EOD concatenation, like attributes, 
DA input data sets 


EOV, DA output data set, 
additional space obtained on 
same volume 


EOV, DA output data set, 
additional space obtained on 
a new volume 


EOD, SL input tape data set 
EOV, SL tape input data set 
EOV, SL tape output data set 
CLOSE Example 

SYSIN data set 

DA input data set 


SL tape input data set 


Number 
1 


© Oo NN DH A bh WS WN 


Open a SYSIN data set resulting from a // DD * in the jobstream. The cards 
will have been spooled to a direct-access device by the job entry subsystem 
before the problem program is given control. The problem program contains 
the following DD statement and DCB associated with the SYSIN file. 
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OPEN Example 2—SYSOUT 
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//DD1 DD * 


DCB1 DCB DDNAME=DD1, BLKSIZE=80, LRECL=80, Xx 
DSORG=PS , EROPT=ABE,MACRF=GM, Xx ‘ ) 
EODAD=EOF 1 


The Open modules executed when the OPEN DCB1 macro is issued: 


[GCOOOIT Open initial 

IFGO193A Read JFCB 

IFG0196J Merge JFCB to DCB 

IFGO196L Call user's DCB exit routine 
IFGO196M Merge DCB to JFCB 

IFG0196V Go to an Open access method executor 


Open access method executor IGGO199F is given control. This module 
constructs an ACB with the attributes of DCB1 and the JFCB and issues an 
OPEN ,, , TYPE=J macro for the ACB, which causes the Open routines to be 
reentered: 


IGC0002B OPEN, TYPE=J 
IFGO193A Determine data set organization 
IFGO196V Go to an Open access method executor 


Open executor IGGO193K is given control to build a DEB, etc. IGG0193K 
returns to: 


IFGO196W Access method executor return (ACB) 

IFG0196X Moves JFCB to SWA (ACB) 

IFGO198N Frees O/C/EOV work area (ACB) 
Control is returned to the issuer of the OPEN for the ACB, IFGO199F, which J 


returns control to: 


IFGO196W Access method executor return 
IFG0196X Moves JFCB to SWA (DCB) 
IFG0198N Frees O/C/EOV work area (DCB) 


Return to the issuer of the OPEN DCB1 macro. 


Open aS .SOUT data set to be written to a device with an output class of A. 
This data set will be spooled to an intermediate JES data set. 


//DD2 DD SYSOUT=A 


DCB2 DCB DDNAME=DD2,BLKSIZE=80,LRECL=80, x 
DSORG=PS, EROPT=ABE , MACRF=PM, RECFM=F 


The Open modules executed when the OPEN DCB2 macro is issued: 


IGCOOOII Open initial 

IFGO193A Determine data set organization 

IFG0196J Merge JFCB to DCB : 

IFG0196L Call user's DCB exit routine 

IFG0O196M Merge DCB to JFCB 

IFG0196V Go to an Open access method executor J 


OPEN Example 3—DA Input 


Open access method executor IGGO199F is given control. This module 
constructs an ACB with the attributes of DCB2 and the JFCB and issues 
an OPEN ,, , TYPE=J macro for the ACB, which causes the Open routines 
to be reentered: 


1GC0002B OPEN, TYPE=J 
IFGO193A Determine data set organization 
IFG0196V Go to an Open access method executor 


Open executor IGG0193K is given control to build a DEB, etc. IGG0O193K 
returns to: 


IFGO196W Access method executor return (ACB) 
IFGO196X Moves JFCB to SWA (ACB) 
IFGO198N Frees O/C/EOV work area (ACB) 


Control is returned to the issuer of the OPEN for the ACB, IFG0199F, which 
returns control to: 


IFGO196W Access method executor return 
IFGO196X Moves JFCB to SWA (DCB) 
IFGO198N Frees O/C/EOV work area (DCB) 


Return to the issuer of the OPEN DCB2 macro. 


Open a data set on a direct-access device for input. 


//DD1 DD UNIT=2314,DISP=OLD, VOL=SER=QQLIB, X 

// DSN=QFILE1 

DCB1 DCB DDNAME=DD1,BLKSIZE=80,LRECL=80, x 
DSORG=PS , EROPT=ABE, MACRF=GM, X 


RECFM=F , EODAD=EOF 1 


The following O/C/EOV modules are executed when the problem program 
issues the OPEN DCB1 macro: 


IGCOOOII Open initial 

IFG0193A Read JFCB 

IFG0194A Select a unit 

IFG0194C Verify a volume 
IFGO194A Volume verified 
IFGOI9SA DSCB-to-JFCB merge 
IFGO19SJ User label determination 
IFG0196J JFCB-to-DCB merge 
IFG0196L User DCB exit 
IFG0196M DCB-to-JFCB merge 
IFGO196V Go to an Open access method executor 


Open access method executor IGGO191A is given control and returns control 
to: 


IFGO196W Access method executor return 
IFG0196X Moves JFCB to SWA 
IFGO198N Frees O/C/EOV work area 


Control is return to the issuer of the OPEN macro. 
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OPEN Example 4—DA Output 


Open a data set on a direct-access device for output. 


4 
//DD2 DD UNI T=SYSDA,DISP=( NEW, PASS), X 2 
// VOL=SER=SCRTCH , DSNAME=OUTFILE1, Xx 
// SPACE=( TRK, (40, 10 )0, LABEL=RETPD=0 
DCB2 DCB DDNAME=DD2, BLKSIZE=80, LRECL=80, X 

DSORG=PS , EROPT=ABE, D4 


MACRF=PM, RECFM=F 


OPEN (DCB2,(OUTPUT ) ) 


IGCOOOTI Open initial 

IFG0O193A Read JFCB 

IFGO194A Select a unit 

IFG0194C Verify a volume 

IFGO194A Volume verified 

IFGO19SA DSCB-to-JFCB merge 

IFGO195J User label determination 

IFG0196]J JFCB-to-DCB merge 

IFGO196L User DCB exit 

IFG0196M DCB-to-JFCB merge 

JKGO196V Go to an Open access method executor 
Open access method executor IGGO0191A is given control and returns 
control to: 

IFGO196W Access method executor return J 

IFG0O196X Moves JFCB to SWA 

IFGO198N Frees O/C/EOV work area 


Control is return to the issuer of the OPEN macro. 


OPEN Example 5—Miultivolume ISAM Input 


Open a two-volume ISAM data set for input. Note that the list of modules 
executed would be the same for a BDAM data set opened for input. 


//DD1 DD DSNAME=PART86, UNIT=2314, X 
// DISP=OLD, VOL=SER=538765 ,538766 
DCB1 DCB DSNAME=DD1 , DSORG=I1S , MACRF=GM 
OPEN DCB1 

IGCOOO1I Open initial 

IFGO193A Read JFCB 

IFGO194A Select a unit 

IFG0194C Verify volume 


If neither volume was mounted at the time the OPEN macro was issued, 
the following volume mount and verification modules would be executed, 
to get both volumes mounted: 


IFG0194J Ask the operator to mount the first volume 
IFG0194C Verify the first volume 
IFG0194J Ask the operator to mount the second volume J 
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IFG0194C 
IFG0O194A 
IFGO195A 
IFGO0195J 

IFG0196J 

IFG0196L 
IFG0196M 
IFG0196V 


Verify the second volume 
Volume verified 
DSCB-to-JFCB merge 
User label determination 
JFCB-to-DCB merge 
User DCB exit 
DCB-to-JFCB merge 


Go to an Open access method executor 


Open access method executor IGGO191A is given control and returns control 


to: 


IFG0196W 


IFG0196X 
IFG0198N 


Access method executor return 
Moves JFCB to SWA 
Frees O/C/EOV work area 


Control is returned to the issuer of the OPEN macro. 


OPEN Example 6—SL Tape Input 


Open an input data set on a standard labeled magnetic tape. 


DD 


DCB 


OPEN 
IGCOO01I 
IFGO193A 
IFG0O194A 
IFG0194F 


UNIT=2400,DISP=OLD, X 
VOL=SER=PS6342,DSNAME=PARTJURN, X 
LABEL=SL 
DDNAME=DD1 , BLKSIZE=80, LRECL=80, X 
DSORG=PS , MACRF=GM, X 
RECFM=F , EODAD=EOF 1 
DCB1 

Open initial 


Determine access method 
Select a unit 


Verify a volume 


If the volume had not been mounted at the time the OPEN macro was 
issued, the following modules would have been executed. 


IFG0194J 

IFG0194F 
IFGO194A 
IFG0195B 
IFG0195H 
IFGO195K 


Ask operator to mount the volume 
Verify the volume 

Volume verified 

Position SL tape 

Verify HDR1 label 

Verify HDR2 label 


If the volume were password protected, the following modules would be 
executed to verify the password: 


IFGO195T 
IFGO195V 


Password initialization 


Read DSCB for PASSWORD data set 


READPSWD Ask operator for password 


IFGO195U 
IFGO195T 
IFG0196J 

IFGO0196L 


Update password record 
Password verified 
JFCB-to-DSCB merge 


Give control to user’s DCB exit routine 


Diagnostic Aids 205 


IFG0196M DCB-to-JFCB merge 


IFGO196V Give control to access method Open executor 


SAM Open access method executor, IGG0191A, is given control and when i ) 
executors have completed processing, control is returned to: 


IFGO196W Access method executor return 


OPEN Example 7—SL Tape Output 


Open an output data set on a standard labeled magnetic tape. 


//DD2 


// 
DCB2 


SAM Open access method executor, IGGO191A, is given control and when 


IFG0196X 
IFGOI98N 


DD 


Moves JFCB toSWA 
Open final 


Returns control to issuer of OPEN macro. 


UNIT=TAPE,DISP=(NEW,KEEP), 
VOL=SER=PS2093 , LABEL=SL 


DCB DDNAME=DD2 , BLKSIZE=80, LRECL=80, 


DSORG=PS , MACRF=PM 


OPEN (DCB2,( OUTPUT) ) 


IGCO001! 
IFGO193A 
IFGO194A 
IFGO194F 
IFGO194A 
IFGO195B 
IFGO196J 
IFGO196L 
IFGO196M 
IFGO196N 
IFG0196Q 
IFGO196T 
IFGO196V 


Open initial 

Determine data set organization 
Select a unit 

Verify volume 

Volume verified . 

Position tape 

JFCB-to-DCB merge 

Take user's DCB exit 
DCB-to-JFCB merge 

Read existing HDRI 

Write volume label 

Write HDR1 and HDR2 labels 


Go to Open access method executor 


the executors have completed processing, control is returned to: 


IFGO196W 


IFGO196X 
IFGO198N 


Open access method executor return 
Moves JFCB toSWA 
Open final 


Returns control to issuer of the OPEN macro. 


OPEN Example 8—NSL Tape Input 


Open an input data set on an nonstandard-labeled magnetic tape. 
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//DD1 
// 


DCB1 


DD 


DCB 


OPEN 


UNIT=2400, DISP=OLD, VOL=SER=PS6342, 
DSNAME=PARTJURN, LABEL=NSL 


DDNAME=DD1,BLKSIZE=80, LRECL=80, 
DSORG=PS , MACRF=GM, RECFM=F, 
EODAD=EOF 1 


DCB1 


IGCOO001I 

IFGO193A 
IFG0194A 
IFG0194F 


Open initial 
Determine access method 
Select a unit 


Verify a volume 


If the volume had not been mounted at the time the OPEN macro 
was issued, the following modules would have been executed. 


IFG0194J Ask operator to mount the volume 
IFG0194F Verify the volume 
IFGO194A Volume verified 
IFG0195D Gives control to NSLOHDRI 
IFG0196]J JFCB-to-DSCB merge 
IFGO196L Give control to user's DCB exit routine 
| IFGO196M DCB-to-JFCB merge 
IFG0196V Give control to access method Open executor 
SAM Open access method executor, IGGO191A, is given control 


and when executors have completed processing, control is 
returned to: 


IFG0O196W Access method executor return 
IFG0O196X Moves JFCB to SWA 
IFGO198N Open final 


Returns control to issuer of OPEN macro. 


OPEN Example 9—NSL Tape Output 


Open an output data set on a nonstandard-labeled magnetic 


tape. 

//DD2 DD UNIT=TAPE,DISP=(NEW,KEEP), X 
// VOL=SER=PS2093, LABEL=NSL 

DCB2 DCB DDNAME=DD 1, BLKSIZE=80, LRECL=80, X 


DSORG=PS , MACRF=PM 
OPEN (DCB2,( OUTPUT) ) 


1GCO0001I Open initial 

IFGO193A Determine data set organization 

IFG0O194A Select a unit 

IFGO194F Verify volume 

IFG0196O Give control to NSLOHDRO 

IFG0196V Give control to an Open access method executor 


SAM Open access method executor, IGGO191A, is given control and when 
the executors have completed processing, control is returned to: 


IFGO196W Open access method executor return 
IFG0O196X Moves JFCB to SWA 
IFGO198N Open final 


Returns control to issuer of the OPEN macro. 
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EOV Trace Examples 
EOV Example 1—EOD, SYSIN 


The end-of-data (EOD) condition arises for a SYSIN data set. When opened, 
the data set was identified by the following DD statement and DCB in the 
problem program: 


//DD1 DD * 
DCB1 DCB DDNAME=DD 1, BLKSIZE=80, LRECL=80, x 
DSORG=PS , EROPT=ABE , MACRF=GM, EODAD=EOF 1 


The EOV modules executed when EOV DCB1 is issued by the access method 
processing routine: 


IGCOO00SE EOV initial 
IFGOSSIF Determine DSORG 
IFG0552X Go to user's EODAD routine 


Note: No EOV condition is raised fora SYSOUT data set. 


EOV Example 2—EOD, DA Input 


EOV macro issued for a data set on a direct-access device opened for input. 
When opened, the data set was identified by the following DD statement and 
DCB macro in the problem program. 


//DD1 DD UNIT=2314,DISP=OLD, VOL=SER=QQLIB, x 

ins DSN=QFILE1 

DCB1 DCB DDNAME=DD1,BLKSIZE=80,LRECL=80, X 
DSORG=PS, EROPT=ABE , MACRF=GM, RECFM=F, x 
EODAD=EOF 1 


The following EOV modules are executed when EOV DCB1 is issued by an 
access method processing routine: 


IGCOO0S5E EOV initial 

IFGO551F Determine DSORG 
IFG0551H Determine device type 
IFG0553P Read F1 DSCB 

IFGO552X Go to users EODAD routine 


EOV Example 3—EOV, DA Input 


EOV macro issued on the first volume of a two-volume direct-access data set 
opened for input. 


At the time the data set was opened, it was identified with the following DD 
statement and DCB macro: 


56, 6 


//DD1 DD UNIT=(2314,2),DSNAME=QFILE1,DISP=OLD, X 
// VOL=SER=( 534632,534633 ) 
DCB1 DCB DDNAME=DD 1, BLKSIZE=80, LRECL=80, 
DSORG=PS , EROPT=ABE , MACRF'=GM, RECFM=F, 
EODAD=EOF 1 


208 OS/VS2 Open/Close/EOV Logic 


When the EOVDCB1 macro was issued, the following EOV modules were 


executed: 

IGCO00SE EOV initial 
IFGO551F Determine DSORG 
IFG0551H Determine device type 
IFGO0553P Read Fl DSCB 

: IFG0554A Select unit for new volume 
IFG05S54C Verify volume 
IFGO554A Volume verified 
IFGO553X Build new DEB 
IFG0553Z Free EOV work area 
IFGOS5S1L SAM EOV input executor 


Control is returned to the issuer of the GET/PUT or READ/WRITE macro. 


EOV Example 4—EQOD, DA Concatenation 


An EOD condition is encountered for first of two data sets with like 
characteristics being concatenated for processing. The data sets were opened 


for input and reside on different volumes. 


The DD statements and DCB macro associated with the data sets were: 


//DD1 DD DSNAME=PARTS84 , UNIT=2314, VOL=SER=57 3426, 
Jf DISP=OLD 

// DD DSNAME=PART85, UNIT=2314,DISP=OLD, 

Ve VOL=SER=57 3427 

DCB1 DCB DDNAME=DD1,BLKSIZE=80,LRECL=80, 


DSORG=PS , EROPT=ABE, MACRF=GM, RECFM=F, 
EODAD=EOF 1 


When the EOVDCB1 macro was issued, the following EOV modules were 


executed: 
IGCOOOSE EOV intitalization 
IFGOSSIF Determine DSORG, current data set 
IFG0551H Determine detive type, current data set 
IFG0553P Read F1 DSCB 
IFG0552X Update control blocks 
IFGO551F Determine DSORG, new data set 
IFGOS551H Determine device type, new data set 
IFGO554A Select unit for new volume 
IFG0554C Verify volume 
IFGOS54A Volume verified 
IFG0O553X Build new DEB 
IFG0553Z Free EOV work area 
IFGOSS1L SAM EOV input executor 


Control is returned to the issuer of the GET/PUT or READ/WRITE macro. 
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EOV Example 5—EOV, DA Output, Same Volume 


The EOV condition arises while writing output to a physical sequential data 
set on a direct-access device. The DD statement indicates a secondary space 
allocation, the secondary quantity is available on the current volume, and it is 
allocated there. 


The DD statement and DCB associated with the data set follows: 


//DD2 ~+DD UNIT=SYSDA, DISP=( NEW, PASS), x 
J / VOL=SER=SCRTCH, DSNAME=OUTFILE1, x 
J / SPACE=( TRK, (40,10) 

DCB2 DCB DDNAME=DD2,BLKSIZE=80,LRECL=80, _ x 


DSORG=PS , MACRF=PM, RECFM=F 


When the EOV DCB2 macro was issued by the access method processing 
routine, the following EOV modules were executed: 


IGCO00SE EOV initialization 

IFGO551F Determine DSORG 

IFG0551H Determine device type 

IFGO554P Call DADSM Extend routines to get more space on current 
volume 

IGG0553A Extend initialization 

1GG0553G Request conversion 

1GG0553B Find available space 

IGG0553C Update F1/F3 DSCBs 

IGG0553D Update F5 DSCBs 

IGG0553E Update F4 DSCB 

IFG0554P Space obtained on current volume 

IFGO555H Build new DEB 

IFGOSS1L SAM EOV executor 


Return to issuer of GET/PUT or READ/WRITE macro. 


EOV Example 6—EOV, DA Output, New Volume 
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EOV condition arises while writing output to a direct-access volume. The DD 
statement indicates secondary space, but none is available on the current 
volume, so the space must be acquired on a new volume. 


//DD2 DD UNIT=SYSDA,DISP=(NEW, PASS), X 

// VOL=SER=SCRTCH , DSNAME=OUTFILE1, X 

// SPACE=( TRK, (40,10) 

DCB2 DCB DDNAME=DD2 , BLKSIZE=80, Xx 
LRECL=80 , DSORG=PS ,MACRF=PM, Xx 
RECFM=F 


When the EOV DCB2 macro was issued by the access method processing 
routine, the following EOV modules were executed: 


IGCOOOSE EOV initialization 

IFGO551F Determine DSORG 

IFGO551H Determine device type 

IFGO554P Call DADSM Extend routines to get more space on current 
volume 


J 


J 


IGG0553A 
IGG0553G 
IGG0553B 
IFG0553E 


IFG0554P 
IFG0554Z 
IFG0554P 
IFGO554A 
IFG0554C 
IFG0554J 
IFG0554C 
IFG0554P 
IGG0553A 
IGG0553G 
IGG0553B 
IGG0553C 
IGG0553D 
IGG0553E 
IFG0554P 
IFG0554C 
IFGO554A 
IFG0555H 
IFGO551L 


Extend initialization 
Request conversion 


Looks for additional space but can’t find it 


Returns to EOV indicating no space available on current 


volume 
Checks DADSM return code 
Update F1 DSCB, current volume 


Call volume mount/Vverification to mount a new volume 


Select a unit 
Verify volume mounted 
Request that volume be mounted 


Verify volume mounted 


Call DADSM Extend to get space on the new volume 


Extend initialization 
Request conversion 

Find available space 
Update F1/F3 DSCBs 
Update F5 DSCBs 
Update F4 DSCB 

Space obtained on new volume 
Read F1 DSCB 

Volume verified 

Build a new DEB 

SAM EOV EXECUTOR 


Returns to issuer of the EOV macro. 


EOV Example 7—EOD, SUL Input Tape 


End-of-file reached on an input tape data set with standard user labels (SUL). 


DD 


DCB 


UNIT=2400 , DISP=OLD, VOL=SER=PS6342, 
DSNAME=PARTJURN, 
LABEL=SUL 


DDNAME=DD 1, BLKSIZE=80, LRECL=80, 


‘DSORG=PS , MACRF=GM, RECFM=F, 


EODAD=EOF 1 


When the EOVDCB1 macro is issued, the following EOV modules are 
executed: 


IGCOO0SE 
IFG0551F 
IFGO551H 
IFG0552R 
IFGO0552T 
IFGO552V 
IFG0552X 


EOV initial 

Determine DSORG 

Determine device type 

Read first standard trailer label 
Read user labels 

Position the volume 


Gives control to the users EODAD routine 


~*~ 
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EOV Example 8—EOV, SL Input Tape 


EOV reached on the first volume of a two-volume input tape data set with j 
standard labels. The second volume of the data set is already mounted. 


//DD1 DD ‘UNIT=( 2400,2),DISP=OLD, 

ve. DSNAME=PARTJURN , VOL=SER=( PS6342, PS6343), 
LABEL=SL 

DCB1 DCB DDNAME=DD1,BLKSIZE=80,LRECL=80, 


DSORG=PS , MACRF=GM, RECFM=F, 
EODAD=EOF 1 


When the EOV DCB1 macro is issued, the following EOV modules are 
executed: 


IGCOOOSE EOV initial 

IFGOSS1F Determine DSORG 

IFG0551H Determine device type 
IFGO552R Read first standard trailer label 
IFG0552V Position current (first) volume 
IFG0S54A Select unit for new (second) volume 
IFGOS54F Verify new volume mounted 
IFGO554A New volume is mounted 
IFG0553F Verify HDR} label 

IFG0553H Verify HDR2 label 

IFGOSSIL SAM EOV executor 


Return to issuer of the EOV macro. 


EOV Example 9—EOV, SL Output Tape 


EOV condition results from filling the first volume of a two-volume output 


tape data set. Second volume is already mounted. 


The data set was identified with the following DD statement and DCB in the 


problem program: 


//DD2 DD UNTT=TAPE, DISP=( NEW,KEEP), 
// VOL=SER=SCRTCH , LABEL=SL 
DCB2 DCB DDNAME=DD2 , BLKSIZE=80, LRECL=80, Xx 


DSORG=PS , MACRF=PM 


The following EOV modules were executed when the EOVDCB2 macro was 


issued. 
IGCOOOSE EOV initial ’ 
IFGOS5S1F Determine, DSORG 
IFGO551H Determime device type 
IFGOS51P Write EOVI1 label 
IFGOSSIR Write EOV2 label 
IFGO551T Position current volume 
IFG0554A Select unit for second volume 
IFGOSS4F Verify that volume is mounted 
IFGO554A Volume is mounted | 
IFG0552B Rewrite the volume label on the new volume 
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IFG0552D Write HDR1 label 
IFG0552F Write HDR2 label 
IFGO551L SAM EOV executor 


Return to the issuer of the READ/WRITE or GET/PUT macro. 


Close Trace Examples 
CLOSE Example 1—SYSIN 
Close a SYSIN data set. 


The problem program contains the following DD statement and DCB 
associated with the data set: 


//DD1 DD * 


DCB 1 DCB DDNAME=DD 1 , DSORG=PS , EROPT=ABE, X 
MACRF=GM, EODAD=EOF 1 


The Close modules executed when the CLOSE DCB1 macro is issued: 


IGC00020 Close initial 
IFG0200V Determine DSORG 
IFG0200W Gives control to the access method executors 


SAM Close executor IGG0201W is given control. This module issues a 
CLOSE macro against the ACB opened to process the data set (see Open 
Example 1), which causes a recursion through the Close routines: 


IGC01020 Close initial 
IFG0200V Determine DSORG, read JFCB 
IFGO200W Gives control to access method executor 


JES Close executor IGGO203K is given control to process the ACB; 
IGG0203K returns control to: 


IFGO200Y Access method executor return 
IFG0202K Delete DEB 

IFG0202L Free Close work area used for DCB 
IFG0202L Free Close work area used for ACB 


Returns to the issuer of the CLOSE macro. 


Note: The same modules are executed when a SYSOUT data set is closed. 


CLOSE Example 2—DA Input 
Close an input data set on a direct-access device. 


When the data set was opened, it was identified by the following DD 
statement and DCB in the problem program: 


//DD1 DD UNIT=2314,DISP=OLD, VOL=SER=QQLIB, DSN=QFILE1 

DCB1 DCB DDNAME=DD1,BLKSIZE=80,LRECL=80, X 
DSORG=PS , EROPT=ABE, MACRF=GM, RECFM=F, X 
EODAD=EOF 1 
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When the CLOSEDCB1 macro was issued, the following Close modules were 
executed. 


1GC00020 Close initial 
IFG0200V Read JFCB 
IFGO200W Give control to access method executor close executors 


Control is passed to the SAM Close executor IGG0201Z, which returns 
control to: 


IFGO200Y Access method executor return 


If this were an output data set being closed, the the following module 
would be executed: 


IFGO201R Update F1 DSCB 

IFG0202E Close DA final 

IFG0202J Restore DCB to pre-open status 
IFG0202K Delete DEB 

IFG0202L Close final 


Returns control to issuer of the CLOSE macro. 


CLOSE Example 3—SL Tape Input 
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Close an input tape data set with standard labels. 


When the data set was opened, it was identified by the following DD 
statement and DCB: 


//DD1 DD UNIT=2400, DISP=OLD, VOL=SER=PS6342, x 

// DSNAME=PARTJURN, LABEL=SL 

DCB1 DCB DDNAME=DD1 , BLKSIZE=80, LRECL=80, xX 
DSORG=PS ,MACRF=GM, RECFM=F, x 
EODAD=EOF 1 


When the CLOSEDCB1 macro was issued, the following Close modules were 
executed: 


1GC00020 Close initial 
IFG0200V Read JFCB 
IFGO200W Give control to the Close access method executors 


Control is given to the SAM Close executor IGG0201A. When the executors 
complete their processing, they return control to: 


IFGO200Y Access method executor return 
IFG0202F Position tape 

IFG0202J Restore DCB to pre-open status 
IFG0202K Delete DEB 

IFG0202L Close final 


Returns control to the issuer of the CLOSE macro. 


Note: The same modules are executed when closing an output data set on 
tape. i 
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APPENDIX A: OPEN AND CLOSE PROCESSING 
OF SPOOLED SYSIN/SYSOUT DATA SETS 


During Open and Close processing of SYSIN and SYSOUT data sets, the data 
sets are associated with both a DCB and an ACB. The OPEN and CLOSE 
macros are issued by the problem program against the DCB; the Open and 
Close access method executors issue OPEN and CLOSE macros against an 
ACB that has the same attributes, as described in ““OPEN Example 
1—SYSIN” and “CLOSE Example 1—SYSIN” in the ‘‘Diagnostic Aids”’ 
section. In processing the ACB, Open calls a special access method executor, 
I1GG0193K, that performs the functions required to prepare the DEB for use 
by a job entry subsystem (JES). 


When the ACB is closed, a special access method executor, IGG0203K, is 
called to reverse the Open processing. 


Descriptions of these modules follow. 


1GG0193K: Open Access Method Executor for Spooled Data Sets Associated 


with an ACB 


Function: Gets storage for the DEB, the subsystem identification block 
(SSIB), and the subsystem option block (SSOB). This routine initializes (1) 
the fields of the DEB, (2) the SSIB to identify the job entry subsystem being 
used, and (3) the SSOB to indicate that an Open is in process. With this 
initialization done, the IEFSSREQ macro is issued to pass control to the job 
entry subsystem. When control is returned from the JES, the DEB is chained 
from the TCB-DEB chain and its address is added to the DEB table. The 
ACB is then moved to the user’s storage, and if there are no more ACBs to 
process for this Open request, control is passed to the next access method 
executor identified in the WTG table or returned to IFGO196W (IGGO0190S). 


Input: RS » Open parameter list, R6 » WTG table, R7 » current Open 
parameter list entry, and R8 » the WTG table entry representing this ACB. 


Output: A DEB that points to the ACB, with a valid address in the job step’s 
DEB table. On error conditions encountered by the subsystem routines, the 
DEB, SSIB, and SSOB are freed and the busy bit in the ACBOFLGS field is 
set to zero. 


1GG0203K: Close Access Method Executor for Spooled Data Sets Associated 


with an ACB. 


Function: This routine builds a parameter list indicating that Close is in 
process and passes control to the job entry subsystem identified in the SSIB, 
via the IEFSSREQ macro. If there are no more ACBs to process for this 
Close request, control is passed to the next access method executor identified 
in the WTG table or returned to the Close access method executor return 
module, IFGO200Y (IGG0200G). 


Input: R5 » Open parameter list, R6 » WTG table, R7 » current Open 
parameter list entry, and R8 » the WTG table entry representing this ACB. 


Output: R5 and R6 are unchanged, R7 > the ext active entry in the 
parameter list, and R8 > the first entry in the WTG table whose module ID is 
not zero. 
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